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Der C16 und Plus4 haben 
ganz schön was auf dem 
Kasten. Dennoch werden sie 
von vielen oft nur als Einstei- 
gercomputer angesehen, weil 
man meint, man könne noch 
nicht mal richtig Briefe da- 
mit schreiben. Ein deutscher 
Zeichensatz ist weder auf der 
Tastatur zu sehen, noch ist 
irgendwo beschrieben, wie 
ein solcher überhaupt auf den 
Drucker ausgegeben werden 
kann. Dieses Problem be- 
schäftigt viele unserer Leser, 
wie viele Zuschriften und An- 
fragen zeigten. Wir konnten 
bisher leider darüber auch kei- 
ne nähere Auskunft geben, 
denn mit einem Tip oder 
Trick war es nicht getan. Im 
Heft CW 8/87 war es dann 
endlich soweit, daß wir unser 
Zeichensatzprogramm _veröf- 
fentlichen konnten. Einblicke 
über die Funktionsweise brin- 
gen wir in diesem Sonderheft. 
Programm und Bedienungs- 
hinweise haben wir nochmals 
in diesem Sonderheft mit ab- 
gedruckt, auch wenn ein Teil 
unserer Leser meinte, man 
solle nicht etwas zweimal ver- 
öffentlichen, nämlich im 
Normalheft und dann noch 
im Sonderheft. In diesem spe- 
ziellen Falle machten wir aber 
eine Ausnahme, da zu be- 
fürchten ist, daß viele unserer 
Leser sich das vorangegange- 
ne Normalheft nicht mehr er- 
gattern können und wir unter 
einem Berg von Anfragen er- 
sticken würden. Das As- 
semblerlisting zum Zeichen- 
satzprogramm haben wir 
nochmals zurückgestellt, da 
wir für das nächste Sonder- 
heft zwei Assembler vorstel- 
len können. Damit aus diesem 
Nutzen gezogen werden kann, 
bringen wir dann auch eine 
kleine Einführung in die Ma- 
schinensprache, woraufhin es 
Ihnen möglich sein wird, un- 
ser Listing nachzuvollziehen. 
Wir stellten fest, daß, sofern 
kein Commodoredrucker ab 
MPS 1000 aufwärts benutzt 
wird, sondern ein anderes 
Fabrikat mit Interface, Pro- 
bleme auftreten :können. Un- 
ser Görlitz-Interface z.B. 
wollte erst, daß vor dem Auf- 
ruf von Script-Plus der Druk- 
kerkanal mit open 4,4,7 er- 
öffnet und anschließend mit 
print #4, chrs (27)” x”; fest- 
geklemmt wird. Sollten Sie 
Probleme mit Drucker und 


Interface haben, so unterrich- 
ten Sie uns bitte davon, damit 
wir diese Problematik in An- 
griff nehmen können und Ihr 
Interface dabei nicht unbe- 
rücksichtigt bleibt. 
Genaueres hierüber und 
das dazugehörige Programm 
sind für das nächste Sonder- 
heft geplant. Mit Bits und 
Bytes, den grundlegensten 
Begriffen der Informatik, be- 
schäftigen wir uns in einem 
eigenen Artikel, da diese zum 
Verständnis vieler Sachverhal- 
te unbedingt nötig sind. Rich- 
tig an die Bits und Bytes 
kommen Sie dann mit dem 
‘“Bitmonitor” heran. welcher 
Ihnen die im Computer vor- 
handene Information auf ver- 
schiedene Weisen sichtbar 
macht, nämlich als Bitmuster, 
als Hexzahl, als Dezimalzahl 
und als ASCII-Code. Durch 
Manipulationen gewisser 
Speicherinhalte lassen sich er- 
staunliche Wirkungen _er- 
zielen. Mit den Informatio- 
nen, die Sie im Zeichensatz- 
artikel über die Speicherstel- 
len 65298 und 65299 ge- 
winnen, sollte es Ihnen gar 
möglich sein, den Bitmonitor 
als Zeicheneditor zu ver- 
wenden und sich selber ei- 
nen Zeichensatz zu kreieren. 
Vielleicht schreiben Sie sich 
aber auch einen speziellen 
Zeicheneditor, der anstelle 
einer Adreßangabe sich mit 
einem Tastendruck zufrieden- 
gibt und so die Zeichenedi- 
tierung vereinfacht. Der Bit- 
monitor ist die Fortführung 
unserer Serie “Programier- 
werkstatt C16”. Wenn Sie 
sich unsere Listings ansehen, 
so werden Sie bemerken, daß 
seit dem vorigen Sonderheft 
C16 4/87 eine große Verän- 
derung vor sich gegangen ist. 
Die Listings sind mit einer 
Prüfsumme versehen, so daß 
richtiges Eingeben, sofern Sie 
unseren “Checksummer” be- 
nützen, kein Problem mehr 
darstellt. Den Checksummer- 
artikel samt _Eingabehin- 
weisen finden Sie auch in 
diesem Heft. Konnte es bis- 
her noch geschehen, daß zu 
lange Programmzeilen abge- 
druckt wurden, so sind wir 
auch diesem Problem auf den 
Leib gerückt. Wir haben mit- 
tels einer geeigneten Routine 
alle Listings auf Zeilenlänge 
überprüft und gegebenenfalls 
eine Abänderung vorgenom- 
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men. Ärgerlich ist, wenn et- 
was nicht so eingetipp werden 
kann, wie es im Heft steht, 
besonders wenn derjenige, der 
dieses tut, sich nicht zu hel- 
fen weiß und wenn es sich da- 
zu noch um ein besonders 
schönes und gutes Spiel bzw. 
eine ebensolche Anwendung 
handelt. Auf einige besonders 
gut gelungene Spiele möchten 
wir Sie hier besunders hinwei- 
sen. Und zwar sind dies drei 
Spiele, die alle etwas mit ei- 
nem Hubschrauber zu tun ha- 
ben. Das Spiel “SOS in Berg- 
not” von Werner Teck, sein 
erstes selber programmiertes 
Spiel überhaupt, zeichnet sich 
durch eine gut gelungene Gra- 
fik und durch die Idee aus, 
nicht Geister oder Raumschif- 
fe abzuschießen, sondern ein- 
mal etwas wirklichkeitsnähe- 
res zu tun, nämlih mit dem 
Hubschrauber unter Einsatz 
des eigenen Lebens jemand, 
der in Bergnot geraten ist, zu 
bergen. Um Bergen geht es 
auch in zwei weiteren Spie- 
len, nämlich um Peter Bergen, 
der uns zwei wunderbare 
Spiele zugesandt hat, in wel- 
chen es ebenfalls darum geht, 
mit dem Hubschrauber Per- 
sonen, die in eine Notsitua- 
tion geraten sind, zu bergen. 
In “Fire-Copter” ist es ein 
Vulkanausbruch, das andere 
Mal ist es eine Brandkata- 
srophe in “Heros”. Deutlich 
ist die Steigerung in beiden 
Spielen zu spüren. Konnte in 
“Firecopter” nur ein Spieler 
agieren, sind es in Heros be- 
reits drei, die nicht gegen- 
einander kämpfen, sondern 
zusammen versuchen, ihre 
Aufgabe zu erfüllen. Das Be- 
sondere am letzten Spiel ist, 
daß für den, der im Augen- 
blick dran ist, nur ein ganz 
enger Ausschnitt der umge- 
benden Landschaft sichtbar 
ist, ein Ausschnitt sozusagen 
vom Ausschnitt. Man braucht 
ein gutes Orientierungsver- 
mögen, um die Aufgabe zu 
meistern. Auch das Koopera- 
tionsvermögen wird in diesem 
Spiel geübt. Der Teil mit den 
Spieletests ist in unserem 
jetzigen Sonderheft noch et- 
was kurz geraten. Daher wol- 
len wir uns diesem im näch- 
sten Heft noch etwas mehr 
annehmen, 

Ihr 

Commodore Welt Team 
Alfons Mittelmeyer 
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TEST & TECHNIK 


VIERERBANDE: 


Mit einem Paket von vier 
Spielen für ganze 29,90 DM 
kommt jetzt Kingsoft auf 

den Markt. Wir testeten 

für Sie Space-Pilot, 

Pilot X, Leggionnaire 

und Bongo ab Seite 4 


OBLIDO: 


Haben Sie schlechte Nerven? 
Dann sollten Sie Oblido nicht 
spielen. Schließlich ist es 

das "absolut frustrierendste 
Game’, sagt der Hersteller. 


DEMOLITION: 


Weg mit den grauen Mauern, 
Die Abrissbirne her, einfach 
die ganze Stadt einreissen. 
Doch, wie im richtigen 
Leben: Die Grünen haben was 
geaen diese Art der Altbau- 
Sanierung. Und schiessen 
zurück! 


THE JOLLY GOOD 
FELLOW: 


Erdbeeren schmecken ja 
lecker, aber wer sich, wie 
Honny, durch mehrere 
Erdbeerfelder mampfen 
muss - und dabei auch 
noch Wächter verjagen 
spielen darf, kriegt irgend- 
wann mal die Nase voll - 
zumindest aber Bauch- 
schmerzen, 


DANGERS DIAMONDS: 


Ganze 45 Sekunden dauert 
Ihr Leben und ganze drei 
haben Sie davon, etwas 
kurz, um Diamanten zu 
sammeln und dabei die 
hässlichen Fallen des 
gegnerischen Computers 
zu vermeiden! 


BATTLE: 


Schiffchen versenken - wer 
hat es nicht schon in lang- 
weiligen Schulstunden heim- 
lich gespielt. Mit dem 
Computer gehts auch. 

Nur werden da die Dinger 
wirklich auf den Grund 

des Meeres geschickt und 

- hässlich, hässlich, - 

der Gegner ballert zurück! 
Mehr über alle diese 

Spiele ab Seite 6 


SERVICE — 


TIPS & TRICKS 


A,0,Ü: 
Deutsche Zeichen auf Ihrem 
Plus 4, ob mit Script Plus 
oder dem eingebauten 
Textprogramm - jetzt 
kein Problem mehr. 

ab Seite 9 


BITMONITOR: 


Wollen Sie wissen, wie Ihr 
Computer arbeitet? 

Wollen Sie Bits und Bytes 
manipulieren? 

Wir sagen Ihnen, wie es 

geht ab Seite 15 


ANIMATION: 
Wer behauptet denn, daß 
mit dem C 16/P4 Sprites 
nicht machbar sind? 
Es geht. In diesem Heft 
geht es um Bewegung 
ab Seite 18 


CHECKSUMMER: 


Kein Vertippen mehr bei der 
Listingeingabe. Unser 
Checksummer - erfreulich 
kurz - hilft Ihnen dabei 

ab Seite 55 


BIT & BYTES: 

Ja wo sind sie denn, die 
lieben Kleinen? 

Gewusst, was das eigentlich 
ist ab Seite 21 


BÜCHER: 


Zweimal ROM-Listing, 
welches kaufen? ab Seite 122 


LERNEN SIE IHREN 
COMPUTER KENNEN: 
Mergen, obwohl es den 
Befehl gar nicht gibt, es ist 
machbar. Wie steht 

ab Seite 124 


LISTINGS 


HEROS: 


Drei gegen das Infe: no - 
Retten Sie durch eine 
Feuersbrunst bedrohte 
Menschen ab Seite 20 
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TRICKY DICES: 


Eine neue Version eines 
altbekannten Spieles, 
hier können allerdings 
gleich fünf mitmischen 
ab Seite 27 


WEATHER: 


Wer hat sich noch nicht über 
seinen Nachbarn geärgert? 
Werfen Sie ihm doch einfach 
mal einige Hagelbrocken 

aufs Dach, oder lassen sein 
Haus durch einen Blitzschlag 
zertrümmern, mit Weather 
geht das. Nur: Der darf das 
auch mit Ihrem Haus tun 

ab Seite 32 


ENIAC II: 


Spannend, wenn man ver- 
schlüsselte Texte ent- 
schlüsseln soll. Geben Sie 
doch mal Ihrem Freund 

eine solche Nuss zu 

knacken ab Seite 37 


WALLDESTROYER: 


Eine neue, grafisch ver- 
besserte Version eines 
bekannten Games 

ab Seite 40 


IN BERGNOT: 


Mit dem Helikopter müssen 
Sie einen verletzten Berg- 
steiger retten, aber ganz 
einfach ist das nicht 

ab Seite 45 


SOUND, (16: 


Töne als Datazeilen - so 
läßt es sich komfortabel 
komporieren ab Seite 51 


SCHNECKENRENNEN: 


Ja, wo laufen sie denn, 

die kleinen Biester? Wetten 
Sie, wer zuerst ins Ziel 
kommt von den ‘'Renn’- 
schnecken ab Seite 60 


17 &4: 


Gleich zwei Versionen 
dieses beliebten Spieles 
haben wir im Angebot, 
einmal für zwei Spieler, 
einmal für fünf, dabei 
gibt es auch Kredit! 

ab Seite 70 


FIRECOPTER: 


Mit dem Hubschrauber in 

den Lavaschlund eines 
Kraters - das kann gefähr- 

lich werden! ab Seite 77 


LIEDHELFER: 


Ermöglichst das Lernen 
unbekannter Musikstücke, 
hilft beim Komponieren 

und kann noch viele 

Dinge mehr ab Seite 79 


HANDELSREISE: 


Schiffe kaufen, Waren ver- 
laden, verkaufen: Werden 
Sie reich, so sind auch die 
Hansestädte groß geworden. 
Aber Vorsicht, es kann 
auch schief gehen 

ab Seite 88 


TEXTVERARBEITUNG 
C 16: 


Der P 4 hat ein eingebautes 
Textprogramm. Das ließ 
eines unserer Redaktions- 
mitglieder nicht ruhen, 

bis er auch auf dem C 16 
Briefe schreiben konnte - 

und zwar ohne Speicher- 
Erweiterung. Das Ganze 

ist auch recht komfortabel 
und einfach ab Seite 97 


CIRCLE: 


Ihr C 16/P4 malt Ihnen 
Garfield ab Seite 103 


BIORHYTHMUS: 


Kennen Sie Ihre guten und 

Ihre schlechten Tage? 

Der Computer sagt es Ihnen 
ab Seite 106 


KARTEIKASTEN: 

Das beliebte Dateiprogramm 
aus dem letzten Sonderheft, 
diesmal für Datasetten- 
besitzer ab Seite 108 


FUNKTIONSPLOTTER: 


Plottet, zeichnet, rechnet. 
Mehr darüber ab Seite 115 


| TEST | 


VIERER-| 


BANDE 


Die Spiele für die 16er/P4-Reihe werden immer leistungsfähiger und preis- 


werter. Wir stellen wieder etliche vor und bewerten sie. 


Ein Spiele-Pack für jeden Ge- 
schmack: Das Pluspaket II ist ein 
Vierer-Sparpaket (29 DM) für den 
C 16 und den P4, an dem die ganze 
Familie Freude finden kann: Da 
gibt’s ’Bongo’ mit einem heimeligen 
Häuschen voll Diamanten für die 
Mutti, zwei Weltraumpilotenaben- 
teuer (Space Pilot und Pilot X) für 
Vati und Sohn, und Opi schwelgt 
bei den ‘Legionnairen’ in seinen 
Veteranenträumen. Mal ist mehr 
Geschicklichkeit, mal mehr Voraus- 
planen gefordert: Tüftler und Fans 
von schnellen Schieß-Spielen kom- 
men hier gleichermaßen auf ihre 
Kosten. Das Pluspaket II gibt es 
als Kassette oder Diskette von 
Kingsoft, made in Germany. 


SPACE- 
PILOT 


Space Pilot tuckert friedlich 
durch die Galaxien. Da, plötzlich, 
wird er angegriffen: Bunte, außer- 
irdische Schiffe rasen von allen Sei- 
ten auf ihn zu und beschießen ihn 
mit allerlei Raum-Raketen und ähn- 
lichem gemeinen Zeug. Space 
Pilot’s Raumstation ist zu träge um 
mit ihr zu fliehen — er hat keine an- 
dere Wahl, er muß den Kampf auf- 
nehmen: Schon eine kleine Berüh- 
rung des Joysticks genügt, um einen 
wahren Schußregen auszulösen. 

Wenn es Space Pilot während des 
Gefechts gelingt, einen Dreierver- 
band feindlicher Raumschiffe abzu- 
schießen, bekommt er Sonderpunk- 
te. Bei 10000 Punkten hat er sich 
ein Freileben — besser, Freiraum- 
schiff — erkämpft, bei 20000 ein 
weiteres, und so fort. 

Gespielt werden kann alleine 
oder zu zweit; ein Joystick ist nicht 
unbedingt erforderlich. 


PILOT X 


Oranges Raumschiff auf dem 
Weg zwischen lila Felsen: Pilot X 
soll ein außerirdisches Höhlen- 
system erforschen. Eine nicht ganz 
ungefährliche Aufgabe: Die Höhlen- 
wände treten immer enger zusam- 
men, so eng sogar, daß Pilot X 
manchmal die beiden Außenkapseln 
ausfahren und sie durch Nebengän- 
ge steuern muß, um sein Schiff vor 
dem Zerschellen zu bewahren. Er 
braucht hier zwar nicht unbedingt 
einen Joystick, dafür aber umso 
mehr Geschicklichkeit, gute Reak- 
tionsfähigkeit und Übung. 

Um sich besser konzentrieren zu 
können, kann Pilot X (mit f1/f2) 
die Musikberieselung abschalten. 
Und manchmal legt er auch mit 
‘help’ ein Päuschen ein: Immer wie- 
der Felswände, fliederfarben, dieses 
immergleiche Tempo — das kann 
schon ziemlich ermüdend sein. 


LEGIONNAIRE 


Sand, Palmen und hie und da ein 
paar Büschel Steppengras — nein, 
Du bist nicht im Urlaub am Strand 
von Mallorca. Sondern mitten in ir- 
gendeiner Wüste, die sich durch ein- 
fachen Joystick-Knopfdruck ins 
Schußfeld wieselflinker blauer 
Männchen verwandelt. Du fängst 
an zu rennen, läufst und läufst, 
um den Kugeln. der Gegner auszu- 
weichen. Palmen und Sandhügel 
stehen Dir teils im Wege herum, 
teils suchst Du Deckung hinter 
ihnen und siehst dich plötzlich in 
die Enge getrieben. Aber Du mußt 
weiter: du hast eine wichtige Nach- 
richt für das Hauptquartier. Und 
immerhin hast Du sechs Leben. 
Wenn Du geschickt genug bist, er- 
reichst Du innerhalb dieser Galgen- 
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frist das offene Feld. Da kannst 
Du Deinen Gegnern endlich Kontra 
bieten: Du wirfst den Joystick (oh- 
ne den geht’s nicht) an, drehst 
Dich frontal zum Feind und drückst 
auf den Joystickknopf, knallst sie 
ab, einen nach dem anderen. Dann 
kommst Du in eine neue Land- 
schaft, der ersten reichlich ähnlich: 
Wieder tigerst Du durch ein scrol- 
lendes Wüstenbild. Zwischendurch 
stößt Du auf Flüsse, da mußt Du 
drüber. Und ab und zu schießt Du 
immer mal so ein aggressives blaues 
Männchen ab. So kämpfst Du dich 
durch sieben Landschaften bis zum 
Hauptquartier, wo Du dich etwas 
ausruhst — um Dich neuen Aufga- 
ben — z.B. den anderen Spielen 
dieser Kingsoftdiskette oder -kasset- 
te — zuzuwenden. j 


BONG 


Prinzessin. Legia ist blond, schön 
und — ganz wie es sich für so ein 
Königskind gehört — unglücklich: 
Der böse Zauberer Batrus hat fieser- 
weise ihre Diamanten gemopst. 
Jetzt sind sie irgendwo in dem win- 
keligen Häuschen des Zauberers ver- 
streut. Das ist natürlich ein unhalt- 
barer Zustand: Bongo, das Super- 
mäuschen, schwingt sich heldenhaft 
durch sechs Bilder, um die Klunker 
wieder einzusammeln. Dabei muß 
er aufpassen, daß ihn der Schatz- 
hüter des Zauberers nicht mit bru- 
talen Kinnhaken ins Aus befördert. 
Aber Bongo hat einen Vorteil: Wäh- 
rend der Bösewicht mit dem fürch- 
terlichen Panzerknacker-Face bei 
der Verfolgungsjagd nur die Leitern 
benützen kann, hopst Bongo über 
Trampolins, benützt Rutschbahnen, 
Luftturbinen, Fließbänder, Trans- 
porter genauso wie Leitern. 

Außerdem hat jeder Bongo sei- 
nen eigenen Herrn. Und der kann 
selbst entscheiden, wie hart sich 
sein Bongo bei seiner Aufgabe tut 
(wahlweise Level 1 - 4), wieoft er 
innerhalb eines Bildes von des 
Zauberers Handlanger gekillt wird 
(4 - 9 Leben) und in welchem He- 
xenhäuschen er seine Sammelei be- 
ginnt (Screen 0 -5). 

Nun aber das Besondere an die- 
sem Spiel “Bongo’. 

Programmacher Udo Gertz hat 
sich dazu ein nicht ganz gewöhn- 
liches Special einfallen lassen: Den 
‘Construction Set’. Da kann man 
die Häuschen nach den eigenen 


Vorstellungen zusammenbasteln 
und — auf einer Extradiskette oder 
-kassette — abspeichern: Mit dem 
Programm ‘put objects’ lassen sich 
Leitern, Rutschen und andere Fort- 
bewegungsmittel verschieben, hin- 
ter anderen verstecken oder ganz 
aus dem Bild räumen.. Aber Vor- 
sicht: Schnell sind Situationen kon- 
struiert, in denen Bongo keine 
Chance hat, den Schläger des Zau- 
berers auszutricksen und die Dia- 
manten zu ergattern. 

Insgesamt können bis zu 60 
selbstentworfene Bilder gespeichert 
werden. Das geht so: Mit ‘next 
picture’ (0 - 5 Möglichkeiten) 
screen wählen und Bild entwerfen. 
Dann “load save’ anwählen, ‘name 
picture’ (0 - 9 Möglichkeiten) be- 
stimmen und abspeichern. Aller- 
dings: Für den noch wenig versier- 
ten Spieler mangelt’s der Beschrei- 
bung an Präzision: Der Weg zum 
Vollgenuß des ‘Bongo Construction 
Set’ ist ihm mit geduldigen Versu- 
chen gepflastert. 


OBLIDO 


Probleme mit Ordnung? Schlech- 
te Nerven? Endlose Aufräumaktio- 
nen ohne sichtbaren Erfolg? Master- 
tronic gibt Gelegenheit zum Üben: 
Da muß man je neun rote, grüne, 
gelbe und blaue Kartons mittels 
Joystick oder Tastatur in Jas farb- 
lich dazupassende Zimmer schie- 
ben. Wer schon mal umgezogen ist, 
weiß, was dann zwingenderweise 
passiert: Die Schachteln verkeilen 
sich ineinander, bleiben in winkeli- 
gen Gängen stecken, so daß man 
selbst nicht mehr vorbei kommt, 
und zuguterletzt drängt die Zeit, 
weil, sagen wir mal, der Nachmieter 
schon vor der Türe steht. Und kaum 
hat man, wi: man glaubt, die ersten 
Erfolge errungen, da kommen 
plötzlich so kleine Biesterchen na- 
mens ‘sinners’ — vielleicht die Nach- 
barskinder? — und halten einen von 
der Arbeit ab. Da muß man schnell 
sein und ihnen durch Druck auf den 
Joystickknopf eins drübergeben — 
aber rechtzeitig, sonst haben sie 
sich schon an einen rangehängt und 
klauen einem wertvolle Zeit, hier 
gemessen in Bonuspunkten. Und 
die sind Nullkommanichts aufge- 
bracht: Die gerade mühsam in die 
richtige Richtung beförderten 
Schachteln fliegen durcheinander 
und die ganze Sysiphusarbeit be- 


TEST 


Wer behauptet denn, daß die “Kleinen” 
nicht auch gute Grafiken erzeugen kön- 
nen, wenn der Programmierer was kann? 
Viele Spiele beweisen, daß sich die Serie 
der mit dem Basic 3.5 ausgestatteten 
Commodores nicht hinter grösseren ver- 
stecken muß. 


einnt von vorne. Es ist beileibe kei- 
ne Übertreibung, wenn die Be- 
schreibung verspricht: “The eternally 
frustrating strategy game’. 
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DEMOLITION 


Weg mit den grauen Mauern! 
Kingsoft macht’s möglich: Während 
Stadtväter Abrißbirnen ordern, 
setzen wir uns an unsern C 16, 
C 116 oder C 4 und spielen Demoli- 
tion. Der Joystick genügt uns, um 
wahlweise alleine oder zu zweit mit- 
tels Ball Stein für Stein abzuschies- 
sen. Rote Steine sind ballfest — ge- 
schickte Spieler nutzten sie wie 
beim Billard als ‘Bande’. In den 
höheren Levels — insgesamt immer- 
hin 36 — kommen noch andere 
Hindernisse — nennen wir sie Spe- 
zialsteine — hinzu, die nur mit ganz 
bestimmten Tricks kleinzukriegen 
sind. Z.B. sind dann drei Treffer 
nötig, um die Mauer zu zerstören. 

Und wenn den städtischen Abriß- 
liebhabern widerspenstige Stadtrats- 
grüne die Pläne platzen lassen, so 
bedroht uns hier jeweils nach vier 
Bildern ein Gesicht, das seinerseits 
auf uns schießt. Bei Abschuß 
heißt’s leider zurück zu Level 1. 
Wer jetzt müde wird, kann sich vom 
Ballgeräusch (Noise=on) etwas ani- 
mieren lassen. Und Ungeduldige 
können die Ballgeschwindigkeit er- 


ZAUDERN IST DIESEM 
PROGRAMM EIN GREUEL 


höhen — erstaunlicherweise räumen 
manche so trotz des erforderlichen 
höheren Reaktionsvermögens 
schneller ab. Zaudern ist dem Pro- 
gramm sowieso zuwider. Wenn 
man, bereits spielbereit, ausharrt 
und auf bessere Zeiten wartet, zeigt 
einem das Programm von sich aus, 
wie meisterhaft man sich in den ver- 
schiedenen Bildern schlagen kann: 
Auf diese Weise bekommt wenig- 
stens auch der weniger Geübte mal 
ein paar von den höheren Levels zu 
Gesicht. Aber Vorsicht Glotzen- 
süchtige: Das Zuschauen macht Hei- 
denspaß. Da könnte man glatt das 
Spielen vergessen. Taktisch klug, 
daß die Vision verschwindet, bevor 
der letzte Stein exekutiert ist: Das 
frustet — und man spielt doch lie- 
ber selbst. Für 19.95 (Diskette oder 
Kassette) bekommt man ein wirk- 
lich hervorragend gemachtes Spiel, 
das den Vergleich mit wesentlich 
teureren Amigaspielen nicht zu 
scheuen braucht und eine echte Be- 
reicherung der eigenen Spielesamm- 
lung darstellt. sad. 


DREI AUF EINEN STREICH 


Eine Sammlung von drei Spielen bietet CSJ Computersoft Jonigk 
unter dem Namen „CSJ-Games 1” an, für die Computer C16/116/Plus 4. 
Eines davon, nämlich „Sun Street” ist uns hierbei bereits als „Paper Boy’ 

aus dem C16 Sonderheft 2/87 bekannt. Wir waren gespannt auf die 
zwei übrigen. 


Was bei den Gebrüdern Grimm der 
Griesbreiberg, ist bei Programm- 
autor Tom Fresen das Erdbeerfeld: 
Da muß Honny sich durchtressen. 
„Wie schön“, möcht’ man da be- 
geistert rufen — aber leider sind 
die Erdbeeren ohne Sahne, und 
außerdem werden sie von aller- 
hand grünen Ungeheuern oder 
Riesenblattläusen bewacht, die 

— kaum hat er sich an so eine Beere 
rangepirscht — ihrerseits versuchen, 
den Räuber zu vernaschen. Dabei 
hat Honny keine Zeit zu verschen- 
ken: Wenn er nicht innerhalb von 
15 Sekunden etwas zu knabbern 
hat, ist seine Energie — links im 
Bildschirm als Zickzacklinie abzu- 
lesen — dahingeschmolzen; er 
stirbt jämmerlich zitternd vor 
Angst und Schwäche. Aber macht 
nichts, er hat ja nicht nur ein, son- 
dern vier Leben. Und mir nichts 
dir nichts, ohne noch vom erschöpf- 
ten Spieler durch ‚,‚fire‘ gerufen 
worden zu sein, steht er schon wie- 
der auf der Matte, sprich: im 
Erdbeerfeld. 


THE JOLLY 
GOOD FELLOW 


Will er nicht wieder an Kraftlosig- 
keit zugrundegehen, hat er nur eine 
Chance: Er muß warten, bis die 
grünen Monsterchen weit genug 
weg sind, nämlich im nächsten 
Feld. Von dort aus bekommen sie 
nämlich nicht so leicht mit, wenn 
Honny sich an den Früchten ver- 
greift. Aber je weiter sich Honny 
durch die Plantage mampft, desto 
schwieriger wird das: die Felder wer- 
den nämlich immer größer, so daß 
schließlich ein Monster nur noch 
ein Feld bewacht: Da muß Honny 
wirklich geschickt vorgehen. Der 
leckere Lohn: Hat er die erste Plan- 
tage abgeerntet, ohne selbst gefres- 
sen zu werden,darf er im nächsten 
Spiel in die nächst größere Plantage 
mit noch mehr Erdbeeren, aber auch 
mit noch mehr gefährlichen Wäch- 
tern. So weit dürfen Honny freilich 
nur ganz wenige führen. Das Pro- 
blem: Unser Held reagiert gerade 
auf ungeübte Hände am Joystick 


etwas, sagen wir, trotzig. Da setzt 

er sich dann einfach in seine Ecke 
links über der ersten Erdbeere und 
wartet, bis seine Kraft verbraucht ist. 
Wenn da dann zwei Trotzköpfe — 
einer vor und einer auf dem Bild- 
schirm — aufeinandertreffen, ist dem 
Game wahrscheinlich eher staubiges 
Siechtum in der Diskettenkiste be- 
schert. Aber halt, ich vergaß ja: Auf 
der Diskette haben wir ja noch zwei 
andere Spiele: „Danger Diamonds“ 
(schafft garantiert schnelle Erfolgs- 
erlebnisse!) und „Sun Street“. 


DANGER 
DIAMONDS 


Drei Leben a 45 Sekunden — wenn 
Jim in seinem kurzen Erdendasein 
zu etwas kommen will, hat er keine 
Zeit zu verlieren: Er ist losgezogen, 
um Diamanten zu suchen — die Dia- 
mantmine hat er schon gefunden. 
Jetzt gilt esnur noch, die Diaman- 
ten schnell einzusammeln und da- 
bei den von hinterhältigen Ganoven 
gelegten Tretminen oder Stein- 
schlag auszuweichen. Wenn Jim 
während eines Lebens zehn Diaman- 
ten ergattern kann, rückt erin den 
nächsthöheren Level auf. Da gibt’s 
zwar noch mehr Diamanten, aber 
auch noch mehr Tretminen und 
Steine, die Jim bedrohen. Sobald 
unser lonely Cowboy auf Knopf- 
druck (fire) gestartet ist, muß man 
ihn mittels Joystick schnell durch 
das gefährliche Gebiet dirigieren: 
Tückischerweise kann es durchaus 
passieren, daß sich unvermutet ein 
Stein löst und Jim auf den Kopf 
fällt. 

Trotz dieser kleinen Zwischenfälle 
ist das Game auch für den blutigen 
Anfänger leicht zu bewältigen. 

Und wer „Danger Diamonds“ satt 
hat, kann ja aus dem Menü der Dis- 
kette noch ‚Sun Street (The News- 
boy)‘ oder ‚The Jolly Good 
Fellow‘ wählen. 

Alle drei Solospiele kosten 32,— 
DM auf Kassette bzw. 49,— DM auf 
Diskette. sad 
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BUMM... 


Wir kennen’s aus langweiligen Schul- 
stunden: „Schiffchen versenken“ 
gibt es jetzt von „‚Mastertronic“ 
C-16- und P-4-gerecht auf Kassette. 
Irgendwo in der Nordsee, zwischen 
Jütland und den Shetlandinseln, 
machen sich zwei Ölgesellschaften 
die letzten Ölvorkommen streitig. 
Und schon haben wir den Salat, 
sprich, Seekrieg: Die diplomatische 
Verständigung hat offensichtlich 
mal wieder nicht geklappt. Beide 
Parteien stehen sich bis an die Zäh- 
ne hochgerüstet, kontrastreich rot 
und blau, gegenüber, um den anders- 
farbigen Bohrtürmen, Schiffen, 
U-Booten, dem Flugzeug und dem 
Hubschrauber den Garaus zu ma- 
chen. Einzelkämpfer antworten an 
dieser Stelle auf “play me“ mit “Y“, 


BATTLE 


um gegen den Computer zu fighten; 
zwei Spieler wählen “N“ und het- 
zen gegeneinander. Von einem Blitz- 
krieg kann dabei freilich keine Rede 
sein: Den meisten Teil der Zeit be- 
ansprucht die „‚Input-Phase‘“, wäh- 
rend derer erst die Fahrtrichturg 
der einzelnen Schiffe bestimmt und 
dann der Befehl zum Schießen :in- 
gegeben wird. Das erfordert — vei 
all den fitzelkleinen Schiffchen — 
ein gerüttelt Maß an Aufmerksam- 
keit und gute, computerfeste Au- 
gen. Und es dauert geraume „‚In- 
put“-Runden, bis die Gegner trotz 
massivem Kampfeswillen überhaupt 
erst auf Schußentfernung aneinan- 
der herangekommen sind. Aber ein- 
gefleischte Tüftler haben vielleicht 


 BUMM 


ihre Freude daran, sich durch die 
Input-Runden zu rackern und sich 
etwa mit ihrem U-Boot mittels auf- 
wendiger Manöver an den Feind 
heranzupirschen. Nur Vorsicht 
beim Tauchen: Da renıpelt man 
schon aus Versehen an einen Bohr- 
turm oder eine Insel und geht da- 
bei unter. Auch wer ungeduldig 
wird und zu früh zu feuern beginnt, 
zieht den Kürzeren: Jede Partei ver- 
fügt nur über begrenzte Vorräte an 


Mit Tests,f 
Tips, Tricks 


SEI® 
Ben 


ES: 2 
er 


Raketen, Kanonen, Torpedos und 
Bomben. Was soll’s — ungezieltes 
Losballern, so lehrt schon die Ge- 
schichte, hat sich noch nie so recht 
bewährt. Da trifft man im Kamp- 
feseifer schon mal ein eigenes Schiff. 
Wenn’s auch kein ekelhaftes Blut- 
vergießen gibt — schmerzlich ist es 
trotzdem, wenn man die eigenen 
Mannschaften unter feuerrot ange- 
strahlten Wölkchen am unteren 
Bildschirmrand versinken sieht, und 
der Feind am Horizont lacht sich 
von weitem ins Fäustchen. 

Und wenn man dann endlich Ver- 


nichtungsnähe am Feind dran ist? — 
Es mag trotzdem keine rechte 
Kampfesfreude aufkommen: Zu- 
oft muß man hier die Spielan- 
leitung wälzen, um sich zu verge- 
wissern, welches Schiff mit wel- 
cher Waffe auf welche Entfernung 
welches Objekt vernichten kann. 
Einziger Ausweg: Eingabemöglich- 
keiten auswendiglernen. Wen das 
abschreckt, oder wem die 5,90 DM 
für die von Rushware erhältliche 
Kassette zuviel sind, mit Papier 
und Bleistift macht die Versenke- 
rei in diesem Fall genausoviel Spaß. 


DIE TITEL FÜR 
COMMODORE-USER 


A/ö,ü: 


Doch es gibt Proble- 
me, nämlich mit den 
deutschen Umlauten. 
Auch unser Programm 
‘deutscher Zeichensatz 
für Script-Plus’ aus Heft 
6/87 konnte das Problem 
noch nicht komplett lö- 
sen, zum einen, weil 
nicht jeder sich Script- 
Plus zulegen will, zum an- 
deren, weil nicht jeder ei- 
nen Commodoredrucker 
besitzt und andere Druk- 
ker die deutschen Zei- 
chen anders handhaben. 

Wir können nicht für 
alle möglichen Kombina- 
tionen von Software und 


Druckern Lösungen an-- 


bieten, aber wir können 
Ihnen zeigen, wie eine 


Bildschirm-, Drucker- 
und Tastenanpassung 
funktioniert. 


Um Ihnen die Sache zu 
erleichtern, haben wir die 
erforderlichen Routinen 
in einem Basicprogramm 
zusammengefaßt und 
dieses mit einem Anpas- 
sungsteil versehen. So 
können Sie eine Anpas- 
sung vornehmen, die ganz 
auf die von Ihnen benütz- 
te Software und Ihren 
Drucker zugeschnitten 
ist. 


BILDSCHIRMAN- 
PASSUNG 


Wie die Zeichen aus- 
sehen sollen, die auf den 
Bildschirm kommen, ist 
normalerweise im ROM 
im Adreßbereich von 
$5D000-$D7FF 
55295) festgelegt. Scha- 
de, könnte man meinen, 
denn im ROM läßt sich 
leider nichts verändern. 
Jedoch kann man dem 
Computer auch sagen, 
daß er seinen Zeichensatz 
auch woanders, nämlich 
im RAM an einer anderen 
Stelle, suchen soll. Man 
braucht also nur den Zei- 
chensatz aus dem ROM 
ins RAM kopieren und 
bestimmte Zeiger auf die 


(53248- 


FÜR IHREN 


C16/P 4 
KEIN 
PROBLEM 


Die Tastatur des C16 oder Plus4 regt viele an, diesen 

Computer auch zum Schreiben von Briefen einzu- 

setzen. Ganz besonders trifft dies auf den Plus4 zu, da 

in diesen bereits eine Textverarbeitung fest eingebaut 
ist. 


neue Zeichensatzadresse 
umstellen. 

Um zu wissen welche, 
brauchen wir ein paar 
zusätzliche Informatio- 
nen, und zwar über den 
TED-Chip. Dieser Bau- 
stein ist unter anderem 
für die Bildschirmausgabe 
verantwortlich. Zwei von 
seinen Registern müssen 
wir manipulieren, näm- 
lich Register $12 und 
$13. Da die Register des 
TED-Chips ganz einfach 
über bestimmte Speicher- 
adressen angesprochen 
werden können, nämlich 
$FFOO-$FF3F (65280- 
65343), wären dies die 


Adressen $FF12 und 
$FF13 (65298 und 
65299). 


TED-REGISTER $12 
($FF12 BZW. 65298) 


Dieses Register enthält 
neben den oberen 5 Bits 
der Basisadrese der 
hochauflösenden Graphic 
(Bit 3-7) und neben den 
2 oberen Bits für die Ton- 
höhe des Tongenerators 
1 (Bit 0-1) das Bit Nr. 2, 


welches unsere besondere 
Beachtung verdient. Die- 
ses Bit sagt nämlich dem 
TED-Chip, ob dieser den 
Zeichensatz im RAM 
oder im ROM suchen 
soll. Ist das Bit gesetzt, 
sucht er im ROM, ist es 
gelöscht, im RAM. Wir 
löschen es mit ‘AND 
=$FB’ (AND #+% 
11111011), was wir in 
Basic durch ‘poke 65298, 
peek (65298) and 251’ 
realisieren. Damit wäre 
diese Sache schon geritzt. 
Ein kleiner Haken aller- 
dings existiert, der weni- 
ger in fertigen, als haupt- 
sächlich in fehlerhaften 
Programmen bzw. fehler- 
haften Eingaben im Di- 
rektmodus zum Tragen 
kommt. Bei der Fehlerbe- 
handlung wird die hoch- 
auflösende Graphic aus- 
geschaltet. Dabei wird lei- 
der auch wieder das Bit 2 
auf 1 und somit auf ROM 
gestellt. Wenn unser 
neuer Zeichensatz einen 
anderen Adreßbereich be- 
lest als der ROM-Zei- 
chensatz, so kann man 
daraufhin nichts Sinn- 
volles mehr auf dem Bild- 
schirm entdecken. Wollen 
wir dieses vermeiden, so 
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genügt keine einmalige 
Umschaltung. Bei jeder 
Zeichenausgabe sollten 
wir diese vornehmen, in 
Form einer kurzen Ma- 


schinenroutine, oder 
noch besser, bei. jedem 
Systeminterrupt. 


TED-REGISTER $13 
(SFF13 BZW. 65299) 


Im TED-Register $13 
sind die oberen 6 Bits der 
Zeichensatzbasisadresse 
zu finden (Bit 2-7). Auf 
die unteren 10 Bits müs- 
sen wir leider verzichten. 
2 hoch 10 sind 1024 
bzw. 1 Kilobyte. Das be- 
deutet, wir können unse- 
ren Zeichensatz nicht völ- 
lig beliebig, sondern nur 
in Schritten von 1 Kilo- 
byte im Hauptspeicher 
positionieren. Hierzu ein 
Beispiel. Angenommen, 
unser Zeichensatz liegt ab 
14 Kilobyte ($3800 bzw. 
14336) im RAM. Wir 
müßten nun in die Adres- 
se $FF13 den Wert =$38 
bringen, also ‘poke 
65299,56’. Wollen wir je- 
doch Bit O0 und 1 nicht 
beeinflussen, so ist ein 
wenig mehr Aufwand zu 
treiben. . Zuerst gilt es, 
die unteren 2 Bits mit 
‘and 3’ zu isolieren, dann 
können wir mit ‘or 56’ 
(or #%00111000) die 
restlichen 6 Bits setzen. 
Angenommen, der zu 
setzende Wert sei ‘X’ 
un ‘AD’ sei 65299. Mit 
‘poke ad, (peek (ad) and 
3) or x’ wäre unser Vor- 
haben verwirklicht. 


ZEICHENSATZ 
KOPIEREN 


Wir haben hierzu ver- 
schiedene Möglichkeiten. 
Wir können es mit dem 
eingebauten Monitor tun, 
mit einem Basicpro- 30 


« 


TIPS & TRICKS 


gramm, oder mit einem 
Maschinenprogramm. 


Monitor: 
‘T D000, D7FF, 3800’ 


Basic: 

10 poke 1177,62: rem le- 
sen aus rom 

20 for i=0 to 2047 
30 poke 14336H+i, 
(53248+i): next 

40 poke 1177,63:rem le- 
sen aus ram 


peek 


Da in Basic normaler- 
weise der ‘peek-Befehl’ 
auf das RAM zugreift, ist 
zuerst eine Umstellung 
auf das ROM vonnöten. 
Hinterher empfiehlt sich 


wieder die Normalein- 
stellung. 
Das Basicprogramm 


dauert etwas lang, das 
Monitorprogramm eben- 
falls, sofern in den ge- 
bankten RAM-Bereich 
kopiert werden soll. Am 
schnellsten ist ein Maschi- 
nenprogramm, wie Sie es 
im- Assemblerlisting ‘Zei- 
chensatz kopieren’ vor 
sich haben. 


ZEICHEN ANDERN 


Nachdem. der Zeichen- 
satz im RAM steht, ist 
es kein besonders Pro- 
blem mehr, denselben 
auch zu ändern. Wir brau- 
chen lediglich die richti- 
gen Codes an die richtige 
Stelle zu schreiben. Hier- 
zu betrachten wir uns 
einmal das Characterrom 
etwas näher. Wir können 
dieses mit dem Bitmoni- 
tor tun, den Sie ebenfalls 
in unserem Heft finden. 
Nehmen Sie dann außer- 
dem Ihr Rechnerhand- 
buch zur Hand und.schla- 
gen Sie es bitte auf der 
Seite mit der Tabelle der 
Bildschirmcodes auf — 
bei mir ist dies die Seite 
212 — kleine Abweichun- 
gen sind denkbar. Sie se- 
hen dort zwei Zeichen- 


COMMODORE 
HOTLINE 
Mittwochs 
19.00 Uhr 
Tel: (089) 129 80 18 
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sätze, nämlich den Gra- 
fiksatz und den Klein-/ 
Großbuchstabensatz mit 
jeweils 128 Zeichen. 
Wenn Sie nun diese 256 
mit 8 multiplizieren, so 
kommen Sie genau auf 2 
Kilobyte, den Speicher- 
bedarf des Bildschirm- 
zeichensatzes. Wie die 
Überprüfung mit dem 
Bitmonitor ergibt, sind 
die Zeichenmuster im 
Speicher in ebendersel- 
ben Reihenfolge abge- 
legt wie in unserer Ta- 
belle, nämlich je Bytes 


Bitmuster für die 128. 


Zeichen von Satz 1 und 
dann dasselbe für Satz 2. 
Da wir in unserem Falle 
an Satz zwei interessiert 
sind, finden wir die Ad- 
resse des zu einem Buch- 
staben gehörenden Bit- 
musters dadurch, daß wir 
den Bildschirmcode mit 8 
multiplizieren und den 


ur 


WE 


ELT 


Wert 1024 als auch die 
Zeichensatzbasisadresse 

hinzuaddieren. Dieses 
Byte und die folgenden 
sieben sind nun durch die 
neuen Bitmuster zu erset- 
zen. Das Nachsehen in 
der Tabelle der Bild- 
schirmcodes kann man 
sich durch einen kleinen 
Trick sparen. Wenn Sie 
einen Blick auf die Tabel- 
le mit den ASC- und 
CHRS-Codes werfen, so 
sieht es zwar nicht so ein- 
fach aus, daraus den Bild- 
schirmcode zu bekom- 
men. Wenn Sie aber mit 
“SCNCLR’ den Cursor in 
die obere linke Bild- 
schirmecke befördern 
und dort ein Zeichen auf 
den Bildschirm schreiben, 
z.B. mit print ‘a’, so steht 
nun im Bildschirmspei- 
cher an erster Stelle, also 
an Adresse $-C00 (3072) 
der Bildschirmcode, den 
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wir zur. Berechnung der 
Zeichenmatrixadresse 

brauchen. Dorthin ‘po- 
ken’ Sie die entsprechen- 
den Zeichencodes, wel- 
che Sie von uns überneh- 
men können, die Sie aber 
auch mit unserem Pro- 
gramm “Bitmonitor’ 
selbst bestimmen können. 


DRUCKERANPASSUNG 


Damit ein Drucker 
deutsche Umlaute druk- 
ken kann, braucht er 
einen deutschen Zeichen- 
satz. Die meisten Drucker 
bieten mehrere Zeichen- 
sätze zur Auswahl, wel- 
che meist mit DIP-Schal- 
tern vorgenommen wird. 
Nähere Einzelheiten hier- 
über stehen in Ihrem 
Druckerhandbuch. Was 
auch noch in Ihrem 
Druckerhandbuch steht, 
sind die Codes, die Ihr 
Drucker braucht, um ge- 
wisse Zeichen — in unse- 
rem Falle die deutschen 
Zeichen — zu drucken. 
Manchmal lassen sich die- 
se Codes bereits über die 
Tastatur eingeben, oft 
aber auch nicht, da es 
256 Codes gibt, Tasten 
aber weniger, oft weigert 
sich auch Ihre Textver- 
arbeitung, gewisse Codes 
zu akzeptieren. Eine Lö- 
sung bietet die Drucker- 
anpassung. Wir nehmen 
eine beliebige Taste für 
unser zu druckendes Zei- 
chen her. Wenn das Zei- 
chen für die Druckeraus- 
gabe bereitsteht, machen 
wir sozusagen dem Druk- 
ker ein X für ein U vor, 
indem wir gegebenenfalls 
dieses Zeichen durch ein 
anderes ersetzen. Dies ist 
hier nun nur durch ein 
Maschinenprogramm 
möglich. Unter gewissen 
Voraussetzungen können 
wir uns in die Ausgabe- 
routine einschalten, und 
zwar dann, wenn ein Ma- 
schinensprachprogram- 
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mierer, was er am besten 
auch tun sollte, die Ker- 
nalroutinen benutzt, an- 
statt Betriebssystemrou- 
tinen direkt anzusprin- 
gen. Das Kernal ist eine 
Sprungliste, die allen 
Commodorecomputern, 
Amiga und PC mal aus- 
genommen, gemeinsam 
ist. Ob nun eine Zei- 
chenausgabe auf einem 
VC20 oder einem Plus4 
erfolgen soll, es geht 
haargenauso. Diese Rou- 
tine heißt ‘BSOUT’ (Ba- 
sic Output), oder auch 
‘CHROUT’ (Character- 
Out), zu deutsch Zei- 
chenausgabe. Mit ‘ISR 
$FFD2’ wird die Ausgabe 
des im Akku befindlichen 
Zeichens auf das Ausga- 
begerät veranlaßt. Das 
Schöne ist nun, daß die 
irgendwo im Speicher 
plazierte Routine 
(SEC4B beim C16) nun 
nicht direkt von der 
Sprunglite aus ange- 
sprungen wird, sondern 
indirekt über einen 
Sprungvektor ‘IBSOUT’, 
welcher beim C16 die 
Adressen 5324-5325 
(804-805) belegt. Wir 
brauchen dort nur anstel- 
le der Routinenadresse 
SEC4AB eine andere ver- 
merken, z.B. $0138, und 
schon springt das Pro- 
gramm in unsere Routi- 
ne, die, bevor sie im Falle 
einer Druckerausgabe das 
Zeichen ausgibt, anhand 
einer Liste überprüft, ob 
dieses nicht besonders zu 
behandeln sei. In diesem 
Falle wird es durch ein 
entsprechendes Zeichen 
aus einer zweiten Liste 
ersetzt. Weitere Einzel- 
heiten können Sie der als 
Assemblerlisting _ vorlie- 
genden Druckerroutine 
entnehmen. 


TASTATURAN- 
PASSUNG 


Wir ‚dachten, mit der 
Druckeranpassung das 
Problem gelöst zu haben. 


LONMODORE 
FÜSTFACH ilßl 
 auuu LOHHOF 


Mit der eingebauten Soft- 
ware erschienen wunder- 
bar unsere Zeichen auf 
dem Bildschirm, auf dem 
Drucker suchten wir sie 
vergebens. Die Program- 
mierer der Software hat- 
ten leider nicht die Ker- 
nalroutinen benutzt, wes- 
halb das Programm unse- 
re Routine verschmähte. 
Doch auch hier gab es ei- 
ne Pforte, durch die wir 
uns Zugang zum System 
verschaffen konnten, 
zwar nicht zur Ausgabe- 
routine, jedoch zur Tasta- 
turabfrage. Wie Sie viel- 
leicht- wissen, erfolgt 50 
oder 60 mal in der Se- 
kunde ein sogenannter 
Systeminterrupt, im Zuge 
dessen nicht nur Rekor- 
der, Uhr und Sound be- 


dient werden, sondern 
auch die Routine 
SCNKEY aufgerufen 


wird, die dafür sorgt, daß, 


WELT, 


sofern eine Taste ge- 
drückt ist, deren ASC- 
Code auch in den Tasta- 
turpuffer wandert — die 
Funktionstasten wollen 
wir hierbei einmal unbe- 
rücksichtigt lassen. Bevor 
nun vom Anwenderpro- 
gramm aus ein Zugriff 
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auf den Tastaturpuffer 
erfolgen kann, tauschen 
wir bereits gegebenen- 
falls den dort zuletzt ab- 
gelegten Code aus. Der 
Computer bekommt so 
bereits bei der Eingabe 
den Code, den der Druk- 
ker später bei der Ausga- 
be braucht. 

Bei der Druckeranpas- 
sung kann es vorkom- 
men, daß Sie gewisse 


Tasten nicht verwenden 
können, weil die Softwa- 
re gewisse Codes nicht 
akzeptiert. Bei der Ta- 
staturanpassung können 
Sie alle Tasten benützen. 
Wenn aber die Software 
gerade die Codes verwei- 
gert, die ihr. Drucker 
braucht, so haben Sie 
Pech gehabt. Die Lösung 
dieses Problems bietet 
eine kombinierte Tasta- 
tur- und Druckeranpas- 
sung. Da wir unseren 
Stack mit der Tastatur- 
anpassung schon ziemlich 
ausgenützt haben, nah- 
men wir nun auch noch 
den Basic-Pseudo-Stack 
für die Druckeranpassung 
her. Ob das wohl gut- 
geht? Es funktioniert 
ganz hervorragend, wo- 
von Sie sich leicht selbst 
überzeugen können. Wie 
die Anpassung zu hand- 
haben ist, erfahren Sie in 
den ‘Bedienungshinwei- 
sen für das Zeichensatz- 
programm’, 


BEDIENUNGSHIN- 
WEISE FÜR 
ZEICHENSATZ- 
PROGRAMM 


Wenn Sie einen Druk- 
ker mit deutschem Zei- 
chensatz besitzen, ob die- 
ser nın COMMODORE 
oder sonstwie heißt, mit 
diesem Programm bleiben 
keine Wünsche mehr of- 
fen. Vielfältige Anpas- 
sungsmöglichkeiten er- 
lauben Ihnen nicht nur 
ein unbeschwertes 
Schreiben von deutschen 
Umlauten. Wenn Ihr 
Drucker weitere Zeichen 
kennt, so können Sie ihm 
auch diese abverlangen, 
ohne auf sonstige ASCII- 
zeichen wie “@ £ *1,<>,“ 
verzichten zu müssen. - _ 
Wenn Sie allerdings zu 
denjenigen gehören, deren 


Drucker zwar keinen 
deutschen Zeichensatz 
besitzt, jedoch grafik- 
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fähig ist, so kann Ihnen 
zwar geholfen werden, 
jedoch wird dies noch 
einige Zeit dauern, bis 
ein Programm dafür ge- 
schrieben ist. 
Seitdem 
deutschen 


ich meinen 
Zeichensatz 


habe, ist mir Script/Plus’ 


die liebste Textverar- 
beitung geworden, ob- 
wohl mir auf dem C128 
noch weitere . Textver- 
arbeitungen zur Verfü- 
gung stehen. Die eine 
stürzt bisweilen ab,. die 
andere nimmt Tasten- 
drücke, welche zu schnell 
aufeinanderfolgen, nicht 
an. Die deutschen Umlau- 
te bringe ich nun sogar 
nit der eingebauten Soft- 
ware des Plus4 auf Bild- 
schirm und Drucker. Je- 
doch kann es hier sein, 
daß nicht jeder Drucker 
mitmacht, weil nicht je- 
des Zeichen von der Soft- 
ware angenommen wird. 


ANPASSUNGSFAHIG 
WIE EIN CHAMALEON 


Das Zeichensatzpro- 
sramm hat, wie man 
sieht, gegenüber demjeni- 
gen in Heft 6/87, welches 
nur auf einem Commo- 
doredrucker . wie dem 
MPS 1000 funktionierte, 
um einiges in der Länge 
zugenommen, Es besteht 
aus den drei Abschnitten, 
Anpassung, Routinen- 
sammlung und Installa- 
tion. 
sant ist der Abschnitt 
„Anpassung’”, weil Sie in 
diesem Ihre individuellen 
Anpassungen vornehmen 
können. 


ZEICHENSATZ- 
ADRESSE. . 
VERSCHIEBBAR 


Der Zeichensatz ist in 
Schritten von 1 Kilobyte 
verschiebbar und belegt 
einen Speicherbereich 


Besonders interes--. 
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von 2 Kilobyte. Das er- 
ste Kilobyte beinhaltet 
den Grafikzeichensatz, 
das zweite den Kleinbuch- 
stabenzeichensatz. Für 
Script/Plus haben wir in 
Zeile 135 die Zeichen- 
satzadresse auf 14 Kilo- 
Byte (53800/14336) ge- 
legt. Wenn wir einen C16 
mit Erweiterung oder ei- 
nen Plus4 besitzen, kön- 
nen wir auch 30 Kilobyte 
(87800) wählen. Im Be- 
reich über $8000 liegt 
Script/Plus, so daß uns 
dieser nicht offen steht. 
Wenn wir mit einem an- 
deren Programm zusam- 
menarbeiten, müssen wir 
eventuell den Zeichensatz 
an eine andere Adresse 
legen, damit dieser nicht 
mit dem Programm oder 


sonstigen Daten kolli- 
diert. Für die eingebaute 
Textverarbeitung des 


Plus4. eignet sich die 
Adrese 60 .Kilobyte 
($F000). 
BASICENDE 
VERLEGEN 


Wenn wir den Zeichen- 
satz hinter ein Basicpro- 
gramm legen und den 
Basic-Bereich nicht ein- 
schränken, so ist es mög- 
lich, daß Basicvariablen 
plötzlich beginnen, unse- 


ren Zeichensatz zu über- 


schreiben. Wenn wir die- 
ses verhindern wollen, so 
brauchen wir nur das 
“n” in Zeile 155 durch 
ein “j” zu ersetzen. 

Wenn es Platzprobleme 
gibt, so kann man den 
Grafikzeichensatz opfern 
und auch per Hand das 
Basicende festlegen, in- 
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dem man.die entsprechen- 
den Werte in die Spei- 
cherstellen $35-836 (53- 
54) schreibt. 
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Es gilt nun, dem Druk- 
ker zum richtigen Code 
zu verhelfen. Das Zei- 
chen, welches der Com- 
puter per Tastendruck 
bekommt, gilt es ent- 
sprechend auszutauschen. 
Dieses kann gleich bei der 
Eingabe geschehen, in- 
dem wir das im Tastatur- 
puffer zuletzt abgelegte 
Zeichen flugs durch das 
richtige ersetzen, bevor 
der Computer überhaupt 
in der Lage ist, dieses 
dem Puffer zu entneh- 
men. Wir tun dies im Zu- 
ge des Systeminterrupts, 
so daß dieses Verfahren 
auch funktioniert, wenn 
der Programmierer der 
Software, für welche wir 
den geänderten Zeichen- 
satz benützen wollen, ein- 
fach die Kernal-Routinen 
unterlaufen hat. Da Letz- 
teres bei der eingebauten 
Software des Plus4 der 
Fall ist, so schreiben Sie 
bitte “t” in die Zeile 
200, wenn Sie diese Soft- 
ware benützen wollen. 
Ob die eingebauten Soft- 
ware allerdings gerade die 
Zeichen auch annimmt, 
welche Ihr Drucker benö- 
tigt, um die deutschen 
Umlaute auch auszuge- 
ben, ist Glücksache. Der 
Commodore MPS 1000 
machte jedenfalls mit. 
Wenn Ihr Drucker dieses 
nicht tut, und Sie sich 
auch keinen anderen an- 
schaffen wollen, so wech- 
seln Sie am Besten die 
Textverarbeitung. Bei 
einer ordentlich program- 
mierten können Sie noch 
eine weitere Anpassungs- 
art fahren, nämlich die 
Druckeranpassung. 

Wählen Sie ““d” in Zei- 
le 200, so wird das einge- 


gebene Zeichen so, wie es 
von der Tastatur kommt, 


vom Computer angenom-: 


men. Der Austausch er- 
folgt erst bei der Drucker- 
ausgabe. Jeder Drucker 
mit deutschem Zeichen- 
satz und seriellem An- 
schluß ist nun verwend- 
bar. Allerdings kann es 
sein, daß die verwendete 
Software nicht jede Taste 
annimmt. Wenn Sie mit 
jemandem, der dieselbe 
Textverarbeitung benutzt 
wie Sie, Text auf Dis- 
kette austauschen, so gibt 
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es Probleme mit den Um- 
lauten, sofern der andere 
eine andere Tastenbele- 
gung .vorzieht. Jedoch 
gibt es noch einen Aus- 
weg aus diesem Dilemma, 
nämlich die Kombination 
von Tastatur- und Druk- 
keranpassung. 


SPEZIALANPASSUNG 


Mit der Tastaturanpas- 
sung können Sie dem 
Computer bei beliebigem 
Tastendruck jedes belie- 
bige Zeichen unterjubeln. 
Sie brauchen nur dafür zu 
sorgen, daß der Compu- 
ter ein Zeichen erhält, 
welches die Software an- 
nimmt. Am Besten ist ein 
geeigneter Grafik-Code, 
da man in diesem Falle 
kein Textzeichen zu op- 
fern braucht. Wir haben 
in den Zeilen 360 - 365 
bereits eine Anpassung 
vorgenommen, die bei 
Script-Plus funktioniert. 
Sie sollten diese, sofern 
Sie Script-Plus verwen- 
den, nicht verändern, da, 
wenn jeder die gleichen 
. Codes verwendet, auch 
ein Datenaustausch auf 
Diskette oder Kassette 


möglich ist, ohne daß 
Ihre Tastaturbelegung 
und Druckeranpassung 


Zzeichensstz 


52 
55 
68 
65 
78 
78 
88 
85 
98 
95 


188 


185 
118 
19 
128 
125 
138 
135 
148 
145 
158 
155 
168 
165 
178 
175 
188 
185 
198 
195 
288 
285 
218 
215 
228 
225 
238 
235 
2408 
245 
258 
255 
268 
265 
278 
275 
288 
285 
298 
295 
388 
385 
318 
315 
328 


TIPS & TRICKS 


rem zZ 
rem 
rem = 
rem 
rem 
rem 
rem 
rem 
rem = 


b 


cC 


rem 


rem 


rem 
data 


eichensatz======== 


asic v3.5 
16/116/plus4 


EHER 
anpassung 
EZ 2 22 22 22 ee 22 


neue zeichensatz- 


C 


{p) 6/87 commodore welt 


RetH 


Fu 


adresse in kilobyte 


"E\1’<@>$%E" 


rem ===: SS > =-z--2.o---.-.= 


rem 


tasten-, drucker-, 


rem spezialanpassung t/d/s 


rem 


data 
data 
data 
data 
data 
data 
data 
data 
data 


251,252,253, 254,2 


19 


220,221,240,237,222 


08,182,69,6 
62,102,62,8: 
08,102,6®8, 192 
1982,182,60,8: 
8,182,8,182 
182,182,62,®: 
0,68,192,124 
182,182,124,96: 
182,24,68, 182 
126, 182,182,8:rem 
182,68, 192,182 
1982,182,68,®: 
1982,8,182,182 
182,182,68,®: 
68, 1982,118,118 
96,98,69,8 
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rem 


rem 


rem 


rem 


16 


hierbei eine Rolle spielen. 
Die Spezialanpassung ist 
die komfortabelste und 
setzt außerdem zumin- 
dest. für Script/Plus ei- 
nen Standard. Sie ist da- 
her, sofern verwendbar, 
den anderen Anpassun- 
gen vorzuziehen. 


DRUCKERCODES 


Damit Ihr Drucker 
deutsche Umlaute über- 
haupt von sich geben 
kann, müssen Sie ihn auf 
deutschen Zeichensatz, 
meist mittels Dipschalter, 
umstellen. Wie das ge- 
macht wird, steht in Ih- 
rem Druckerhandbuch., 
Dort finden Sie des wei- 
teren eine Tabelle, aus 
welcher hervorgeht, wel- 
che ASCII-Code der 
Drucker braucht, um die 
gewünschten Umlaute 
darzustellen. Wenn diese 
Werte von denen in den 
Zeilen 220 - 225 abwei- 
chen, so tragen Sie dort 
bitte die richtigen ein. 


ZEICHENMUSTER 


In den Zeilen 245-340 
ist vermerkt, wie die Zei- 
chen aussehen. Das Bit- 
muster können Sie er- 
rechnen, wenn Sie die an- 
gegebenen Dezimalzah- 
len in Dualzahlen um- 
rechnen. Sie brauchen 
keine Änderung der Zei- 
chenmuster vornehmen. 


SPEZIALCODES 


Die Spezialcodes spie- 
len nur eine Rolle für die 


Spezialanpassung, sie 
sind auf Script/plus ab- 
gestimmt. Ändern Sie 


sie bitte nicht für Script/ 
Plus, damit wir einen 
Standard haben. Falls 
für eine andere Soft- 
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ware doch ein Umstellen 
erforderlich sein sollte, 
so brauchen Sie nur einen 
x-beliebigen Code hier 
einzusetzen, der von der 
Software angenommen 
wird. 


WAS SIE ANPASSEN 
MÜSSEN 


Bei Script-Plus nur die 
Druckercodes. Bei der 
eingebauten Software des 
Plus4 zusätzlich die Zei- 
chensatzadresse und die 
Anpassungsart. 


WAS SIE ANPASSEN 
SOLLTEN 


Empfehlenswert ist ei- 
ne andere Tastenbele- 
gung, ich z.B. nehme 
beim Plus4 die Tasten 
«“ @ +£*” für die Umlaute 
her, da diese so schön 
beieinanderliegen. In Ver- 
bindung mit der Shiftta- 
ste bekomme ich die 
großen Umlaute. 


WAS SIE ANPASSEN 
KONNEN 


Sie sind durchaus nicht 
auf deutsche Umlaute be- 
schränkt. Sie können, 


985 for i=1822 to 1821+tn., <dn> 
918 reada:pokei,a:next < jm> 
915 poke1814,29:poke1815,7 <jf> 
928 poke1882,n:poke1884,111+n © <mm> 
925 .poke 884,8:poke 895,7 <aa> 
938 Dr Renee cc 
935 rem basicende <lh> 
940: rem -r=rFsrrnnnnnnn <bm> 
945 restore155:readx$ <bi> 
958 ifx$="n" then end <cl> 
955 poke 54,x:poke 56,x <ac> 
968 poke 53,8:poke 55,8 <1f> 
965 rem daon2==2=2-=-00004000n- <jf> 
978 rem 812277 bytes memory <op> 
975 rem 884465 bytes program <dd> 
988 rem BBB878 bytes variables <kn> 
985 rem AAY165 bytes strings <ei> 
998 rem 987577 bytes fre(Bß) <ip> 
995 rem ====================== cld> 


man staune, sogar noch 
ein paar Zeichen hinzu- 
nehmen. Sie können na- 
türlich auch welche weg- 
nehmen. Wenn Sie aller- 
dings zuviele neue Zei- 
chen hinzufügen, kann es 
Kollisionen mit dem Pro- 
gramm geben. Mein Pro- 
gramm ist nicht dazu ge- 
dacht, eine vollständige 
Umcodierung der Tasta- 
tur vorzunehmen, son- 
dern beschränkt sich auf 
das Nötige. Um es kurz 
und einfach zu halten, 
wurde auf eine Anpas- 
sung mit Menüführung 
verzichtet. Daher ist 
vielleicht das Anfügen 
eines neuen Zeichens 
auch etwa umständlich. 
Auch wenn Sie nur eine 
Taste umbelegen wollen, 


BÜRGERKRIEG IN 7 
MITTE AMERIKA Menschen in Not 


brauchen Hilfe: zuverlässig, 


» kirchlichen Hilfswerke 
ehmen ihren Auftrag ernst. 


= Deutscher Caritasverband, Konto 202, 
= Posıgıro Karlsruhe oder Banken 


Diakonısches Werk Konto 502 
2 gs 2 oder Banken und 


schnell, wirksam. Die beiden #- 


ist es nötig, auch den 
Druckercode anzupassen, 
welcher im Normalfall 
mit dem ASCII-Code des 
Commodore Computers 
identisch sein sollte. 


ANPASSUNGSVOR- 
SCHLAGE 


a 
. 5 
17) 
PS 


: (shift) (*) 
: (cbm) (@) 
: (cbm) (£) 


* : (cbm) (*) 
1: (cbm) (+) 


PROTOPP FO: P: 
BE: 
en: 
S 


je 
a 


: (shift) 

: (shift) (+) 
: (shift) (—) 
: (cbm) (@) 


Ofejof 2.2220 2.20) 


+: (cbm) (+) 
— : (cbm) (—) 
R: (cbm) (P) 


: Mit (cbm) ist hierbei die 


Commodore-Taste. 
meint. 


ge- 


WEITERE ZEICHEN- 
MUSTER 


Für die Anpassung sind 
noch zusätzliche Zeichen- 
muster erforderlich. 


Plus4: 

341 data 0,102,60,255, 
60,102,0,0: rem* 

342 data 0,24,60,126,24, 
24 ,24,24:rem f 


C16: 

341 data 0,24,24,126,24, 
24,0,0: rem + 

342 data 0,0,0,126,0,0,0, 
0: rem — 

343 data 0,24,60,126,24, 
24,24 ,24:rem r 


DRUCKER- UND 
SPEZIALCODE- 
ERGANZUNG 


Plus4: 
226 data 42,94 
366 data 42,94 


C16: 
226 data 43,45,94 
366 data 43,45,94 


EIGENE ZEICHEN 
ENTWICKELN 


Eigene Zeichen ent- 
wickeln und ausdrucken 
können Sie mit diesem 
Programm noch nicht. 
Bis jetzt sind noch auf 
den Druckerzeichensatz 
angewiesen. Ab nächstem 
Sonderheft werden wir 
diese Beschränkung 
durchbrechen und Sie 
können, wenn Sie wollen, 
auch kyrillisch, chine- 
sisch oder in Runen 
schreiben und drucken. 

A. Mittelmeyer 
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DEM C16/PA4 MAL 
UNTER DEN 
DECKEL GESCHAUT 


Wer einen Blick in die 
Speicherplätze seines 
Computers tun will, be- 
nötigt hierzu einen Moni- 
tor. Zwar besitzt der C16 
bereits einen solchen, /je- 
doch, wer Bitmuster be- 
trachten oder verändern 
will, muß dort immer erst 
Hexzahlen in Binärzahlen 
wandeln oder umgekehrt. 
Mit unserem Bitmonitor 
dagegen können Sie Bit- 
muster direkt betrachten 
und einzelne Bits verän- 
dern. 

Wie bekommen wir 
nun in Basic die Speicher- 
platzinhalte auf den Bild- 
schirm? Ganz einfach mit 
PRINT und mit PEEK. 
Dazu ein Beispiel: 

10 senelr 

20 for i=o to 7 
30 Print peek (i) 
40 next 


Dieses Programm liest 
die Inhalte der ersten 8 
Speicherplätze unseres 
Computers auf den Bild- 
schirm aus. Sehr informa- 
tiv sind allerdings 8 Zah- 
len, deren Werte zwi- 
schen O und 255 liegen 
können, auch wieder 
nicht. Der Sinn dieser 
Zahlen wird erst klar, 
wenn wir sehr viel über 
unseren Computer wis- 
sen. Jedoch gibt es auch 
Speicherplätze in unse- 
rem Computer, deren In- 
halt uns sehr viel mehr 
sagt. Ein solcher Bereich 
beginnt im ROM ab Ad- 
resse 53248. Mit einem 
PEEK allein ist es nicht 
getan, wenn wir aus dem 
ROM lesen wollen. Daher 
wenden wir einen kleinen 
Trick an. Wenn wir eine 
ganz bestimmte Speicher- 
stelle in einer ganz be- 


stimmten Weise verän- 
dern, so kann der Com- 
puter aus dem ROM Ie- 
sen. In eine Speicherstelle 
schreiben können wir mit 
dem POKE-Befehl. Mit 
POKE 1177,62 können 
wir auf Lesen aus dem 
ROM umstellen, mit 
POKE 1177,63 können 


wir wieder auf Lesen aus 

dem RAM zurückstellen. 

Wir probieren nun folgen- 

des kleines Programm: 

10 scncIr 

20 ad=53248:poke 
1177,62 

30 for i=0 to 7 

40 print peek (ad+i) 

50 next 

60 poke 1177,63 


Sehen Sie einen Unter- 
schied zu vorhin? Außer 
daß nun andere Zahlen 
auf dem Bildschirm ste- 
hen, ist offensichtlich 
kein Unterschied festzu- 


stellen. Eines will ich ih- 
nen allerdings verraten. 
Wenn Sie die gelisteten 
Dezimalzahlen in Binär- 
zahlen umrechnen .wür- 
den, so könnten Sie et- 
was erkennen, was ihnen 
bekannt vorkommen wür- 
de. 

Was sind nun Binär- 


zahlen? Man sagt auch 
oft Dualzahlen dazu. De- 
zimalzahlen kennen 10 


Ziffern, nämlich 0-9. 

Hexadezimalzahlen 16 
Ziffern. Außer 0-9 nimmt 
man hierzu noch die 
Buchstaben A-F dazu 
her. Binärzahlen kennen 
nur zwei Ziffern, nämlich 
Oundl. Statt Einer, Zeh- 
ner, Hunderter, Tausen- 
der gibt es bei den Dual- 
zahlen Einer, Zweier, 
Vierer, Achter usw. Die 
nächsthöhere Stelle ist 
nun nicht das 10-Fache 
der vorigen, sondern nur 
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das Doppelte, z.R.: 


0001 =1 
0010=2 
0100 =4 
1000 = 8; 


Mit einer vierstelligen 
Binärzahl lassen sich Zah- 
len von 0-15 darstellen, 


mit einer achstelligen 
Zahl von 0-255. 

0000 0001 = 1 

0000 0010= 2 

0000 0100= 4 

0000 1000 = 8 

0001 0000 = 16 

0010 0000 = 32 

0100 0000 = 64 

1000 0000 = 128 
1+2+4+8+16+32+64+128 
=255 


< 


Schöner ist das Bit- 
muster zu sehen, wenn 
wir statt Null und Eins ei- 
nen Punkt und einen 
Kreis oder einen Stern 
wählen. Wie können wir 
das Bitmuster nun be- 
rechnen? Wenn wir eine 
Null an eine Dualzahl an- 
hängen und so das Bit- 
muster nach links ver- 
schieben, so haben. wir 
die Zahl verdoppelt. Eine 
Verdoppelung der Zahl 
entspricht also einem 
Schieben nach links. Wir 
brauchen also jeweils nur 
unsere gepeekte Zahl mit 


« 
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Zwei zu multiplizieren 
und dann zu vergleichen, 
ob das Ergebnis größer 
als 256 ist. Wenn ja, ha- 
ben wir eine Eins nach 
links herausgeschoben 
und können das entspre- 
chende Zeichen ausdruk-- 
ken. Die 256 haben wir 
nun schon verbraten, und 
müssen sie wieder abzie- 
hen. Mit dem verbleiben- 
den Rest verfahren wir 
nun weiter in derselben 
Weise, bis wir alle acht 
Stellen auf Einsen abge- 
klopft haben. Übrigens, 
wenn wir eine Null erwi- 
schen, so dürfen wir na- 
türlich nichts vom Rest 
abziehen. Wir machen 
jetzt die Bitmuster sicht- 
bar: 
10 scnclr 
20 ad=53248:poke 
1177,62 
30 for j=0 to 7: x=peek 
(ad+j) 
40 for i=1 to 8:x=x+x 
50 if x<256 then print”. 
“:goto 70 
60 x=x-256:print‘“*”; 
70 nexti:print:nextj: 
poke1177,63 


Das Ergebnis kommt 
ihnen sicherlich nicht un- 
bekannt vor. Sie sehen 
folgendes Muster: 


0.0. 


Wenn Sie dieses noch 
nicht identifizieren kön- 
nen, so probieren Sie das 
obige Programm doch 
noch einmal mit einer um 
8 erhöhten Adresse, also 
mit ad=53256. Sie erhal- 
ten dann folgendes Mu- 
ster: "x 


1Ser 
SPECIAL: 


THEBEST 


x %* 
ER 
. 34 
ker 
ao *%* 

ER DR 
* 


Wenn Sie nun erkannt 
haben, um was es sich 
hier handelt, und vermu- 
ten, daß nun eigentlich 
das restliche ABC folgen 
müßte, so haben sie voll- 
kommen recht mit ihrer 
Vermutung. Wir aller- 
dings bringen nun in un- 
serem Artikel nicht die 
restlichen Buchstaben, 
sondern den Bitmonitor, 
mit welchem Sie es etwas 
einfacher haben, sich in 
ihrem Computer noch et- 
was umzuschauen. Geben 
Sie also nun bitte das Bit- 
monitorlisting ein. 


BEDIENUNG DES 
BITMONITORS 


Wenn Sie den Bitmoni- 
tor starten, erscheint le- 
diglich ein Fragezeichen 
und fordert Sie zur Ein- 
gabe auf. Sie können nun 
folgendes eingeben: 


— eine Dezimalzahl von 
0-65535 

— $ gefolgt von einer 
Hexzahl 0O-FFFF 

— nichts 


6“. 


x 


— "out 


Auf die Eingabe einer 
Zahl, ob Dezimal- oder 
Hexzahl, erfolgt die Auf- 
listung von 24 Bytes ab 
der angegebenen Adres- 
se. Danach werden Sie 
erneut zur Eingabe auf- 
gefordert. Wenn Sie die 
nächsten 24 Bytes sehen 
wollen, so brauchen Sie 


hierzu keine Adresse 
mehr einzugeben. Es 
reicht, wenn Sie ganz 


48 rem bitmonitor=-=========016 
28 rem (p) 7/87 commodore welt 
30 rem =====-==-=-==-=-=-=-=====2==== 
48 rem (c) by a.mittelmeyer 

5@ rem 

68 rem 

70 rem Bosie W3;5 

88 rem c16/116/plus4 

98 rem =========2=mmeeeeeeseeem 


1808 poke216,peek(55) :poke217,p 
eek( 56) 


118 poke55,8:poke56,24:clr:scn 
eir:rf=-62 

128 rem ====================== 
130 rem = eingabelogik = 
148 rem =======-==========02==== 
1598 x$="":inputx$:ifx$=""thenx 
=x+i:g0t0o2289 

160 if x$="in"thenio=-1:g0t015 
1a) 

178 if x$="out"thenio=9:g0t015 
(a) 

1808 if x$="rom"thenrf=62:g0to! 
52 

198 if x$="ram"thenrf=63:goto1. 
50 

2808 if x$="x"thenpoke55,peek(2 


16) :poke56,peek(217) :end 

218 if left$(x$,1)="$"then x=d 
ec(right$(x$,1len(x$)-1)):elsex 
=val(x$) 

228 if io then 378 

2380 1l1i=23:g0osub279:g0t0158 

2408 rem ==========-========02=== 
250 
260 


rem 
270: for 1=% to li 

288 poke117?7,rf:a=peek(x+i) :b= 
8:poke1177,63 

298 forj=1t08 

308 a=ata:if a>=-256 then a=a-2 
56: print"Q”zrelse print". "; 
318 nextj:print" "right$(hex$ 
(6), " "right$l”" "+str$lh),3 
a 

328 if b<32or(b>127andb<16B) th 
enprint".";:elseprintchr$(b); 
330 print!) "hex$l.x#L)ıxtüiınex 


-tiyreturn 


378 li=?:scncelr:gosub2?®%:print 

chr$( 19) ;:open1,8:input#1,xx$: 

close 

388 forj=1toß:print:nextj 

398 input"neue werte speichern 
IB ERS 
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' TIPS & TRICKS 


400 if xx$=" 


n"then150:elseifxx 


$<>"j"then398 <be> 
410 ad=3072:fori=8t07:zz=9:for 

j3=2to? <pb> 
428 z=peek(ad+tj) :zz=zz+zz:ifz< 

>A46thenzz=zz+1 <hi> 
430 next j:pokex+ti,zz:ad=ad+48: 

nexti:goto158 <nj> 
440 rem =========-=-=2-.=-=2=2======= <ig> 
458 rem 12277 bytes memory <1lf> 
468 rem 01413 bytes program <pe> 
478 rem DOO7O bytes variables <hn> 
488 rem 800008 bytes arrays <1lj> 
A498 rem 00318 bytes strings <ch> 
5a0 rem 10476 bytes fre(®) <gl> 
518 rem ====================== <cmm> 


einfach nur die RE- 
TURN-Taste drücken. 

Wollen Sie in’ den ge- 
bankten RAM-Bereich 
beim Plus ‘oder C16 mit 
Erweiterung schauen, so 
geben Sie RAM ein. Wol- 
len. Sie wieder zurück- 
schalten, so geben Sie 
ROM ein. 

Wenn Sie IN eingeben, 
so werden nur 8 Bytes ge- 
listet und der Cursor 
blinkt in der oberen lin- 
ken Ecke. Sie können 
nun Bits verändern. Ein 
Punkt bedeutet eine Null. 
Alles andere, was. sie in 
das 8*8 große Feld in der 
linken oberen Bildschirm- 
ecke schreiben, wird als 
Eins gewertet. Wenn Sie 
im Anschluß die RE- 
TURN-Taste drücken, eT- 
folgt noch einmal eine Si- 
cherheitsabfrage, ob die 
Änderung auch tatsäch- 
lich erfolgen soll. Gege- 
benfalls werden die neu- 
en Werte in die entspre- 
chenden Speicherplätze 
geschrieben, und zwar 
immer in das RAM, 
auch wenn Sie vielleicht 
das ROM angewählt ha- 
ben sollten. 

Mit OUT schalten Sie 
wieder in den Ausgabe- 
modus zurück. 

Neben der Spalte mit 
den Bitmustern sehen Sie 
noch weitere 5 Spalten. 
In der 2. Spalte wird der 


Code Hexadezimal darge- 
stellt. Je vier Bits werden 
zu einer Hexzahl von 0-F 
zusammengefaßt. Da- 
durch wird die Darstel- 
lungsweise ganz schön 
verkürzt. Rechts davon 
ist der Code dezimal dar- 
gestellt. Beim Rechnen 
sind wir normalerweise 
diesen gewohnt. 


Die hexadezimale Dar- 
stellung hat den. Vorteil 
des kürzeren Codes. Aus- 
serdem läßt sich das Bit- 
muster viel leichter aus 
den Hexzahlen rekapitu- 
lieren, da wir hier nicht 
durch 16 teilen müssen. 
Neben den Dezimalzah- 
len finden Sie eine Spal- 
te mit dem ASCII-Code. 
Wenn Sie sich einmal bei 
Adresse 33905 umsehen, 
so können Sie Informa- 
tion entdecken, die als 
Text betrachtet Sinn er- 
gibt. Sehr interessant ist 
auch der Bereich ab 
33166. Die restlichen 
zwei Spalten stellen die 
Adresse sowohl in hexa- 
dezimal, als auch in dezi- 
maler Form dar. 


Den Bitmonitor kön- 
nen Sie auch zum Edi- 
tieren eines neuen Zei- 
chensatzes verwenden. 
Nähere Aufschlüsse hier- 
über erhalten Sie im Ar- 
tikel “Veränderter Zei- 
chensatz’” 


HÄTTEN SIE ES 
GEWUSST? 


Floppybefehle für 
Commodore 1571/72 


OPEN15,8,15,‘“U0: 
>Schr&(x)“ — "Sektor 
Interleave einstellen. 
(Ahstand der Sekto- 
ren beim Schreiben) 


OPEN15,8,15,“UO: 
Schr$(x)“ — Anzahl 
der Leseversuche fest- 
legen. 


OPEN15,8,15,‘*U0: 
>T“ — ROM Prüf- 
summe erstellen. 


OPEN15,8,15,“UO 
>MO“ — Umschalten 
auf 1541 Modus. 
OPEN15,8,15,‘“U0: 
>M1“ — Umschalten 
auf 1571 Modus. - 


OPENI15,8,15 ,“UO 
>H0“ < Seite’ 0 anwäh- 
len (1541 Modus) 


OPENI15,8,15,“UO 
>HI“ = Seite‘ l anwäh- 
len (1541. Modus) 
OPENIS5, 8,15, “UO 
>chr$(x)“ — Geräte- 


adresse einstellen. 
(8/9/10/11) 


Allen Befehlen sollte ein 
‘CLOSE15‘ folgen, um 
die Befehlssequenz 
abzuschließen. 


HÄTTEN SIE ES 
GEWUSST? 


Die Gesamtlänge einer 
Basic-Programmzeile 
darf beim 128.PC, 160 
Zeichen nicht über- 
schreiten. 80 Zeichen 
beim C-64, 66 Zeichen 
beim VC-20. 


HÄTTEN SIE ES 
GEWUSST? 


Bei aktivierten Klein-/ 
Großbuchstabenmodus, 
müssen alle Basic-Schlüs- 
selwörter und Variablen- 
namen grundsätzlich in 
Kleinbuchstaben einge- 
geben werden. 
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TIPS & TRICKS 


HÄTTEN SIE ES 
GEWUSST? 


Reelle Werte werden 
als Gleitkommazahlen 
mit einer Genauigkeit 
bis zu 10 Stellen ge- 
speichert. 


HÄTTEN SIE ES 
GEWUSST? 


Der Basic-Interpreter 
hat folgende Hierar- 
chie bei der Verarbei- 
tung numerischer Aus- 
drücke und rs 


nen: 
Funktionsaufrufe = 
Potenzierung * — 
Negation (# Umkeh- 
rung) — Multiplikation 
und Division — Addi- 
tion und Subtraktion. 


logisches 
Komplement (NOT) 


“ Konjunktion .(AND) 


Disjunktion (OR) 


_ HÄTTEN SIEES. 


GEWUSST?: - 


Ein Zeichenkettenaus- 
druck kann eine Zei- -_ 
chenketten-Konstante 
oder -Variable oder’ei- 
ne Kombination aus 


Zeichenketten-Kon- 
stanten, -Variablen 
und -Operatoren zur 
Erzeugung einer. neu- 
en Zeichenkette sein. 
Operatoren ziehen da- 
bei Zeichenketten zu 
einer neuen Konstel- 
lation zusammen. 


HÄTTEN SIE ES 
GEWUSST? 


Wird bei der Eingabe 
einer Programmzeile 
mit Abkürzungen 


" (z.B. GO SHIFT S) ver- 


wendet, so wandelt der 
Basic- -Interpreter dies 
bei LIST in das Schlüs- 
selwort (GOSUB) um, 
wodurch die Zeile ge- 
gebenenfalls länger 

als 80 Zeichen (C-64) 
wird. Dies ist erlaubt, 
der Computer verlän- 
gert die Programm- 
zeile selbständig. 


MT ssssÖs sp [0 


« 


ANIMATION 


AUF DEM C16 


Wer Bewegung in das 
Spiel bringen möchte, 
muß sich, wenn er einen 
C16, C116 oder Plus4 be- 
sitzt, oft mit den beschei- 
denen Möglichkeiten, die 
der Computer bietet, ab- 
finden. Was mit Basic 
machbar ist, ist nicht ge- 
rade umwerfend. Sprites 
besitzt der C16 leider 
nicht, jedoch gibt es eine 


Möglichkeit, Sprites soft- 


waremäßig zu erzeugen. 


BEWEGUNG IN BASIC 


Im Listing Bewegungs- 
demo sind vier Program- 
me zusammengefaßt, die 
verschiedene Möglichkei- 
ten darstellen, wie man 
etwas bewegen kann. 
Wird nur ein einziges 
Zeichen bewegt, wie bei 
der “Linearen Bewe- 


gung” oder der “Bewe- 
gung in der Ebene”, so ist 
die Geschwindigkeit ak- 
zeptabel. Faßt man da- 
gegen mehrere Zeichen 
zu einer Figur zusammen, 
so wird die Geschwindig- 
keit quälend langsam, so 
daß man damit lediglich 
nur mehr eine Bewegung 
wie sie im Programm 
“Schneckenrennen” vor- 
kommt, realisieren kann. 
Schnelle Bewegung ver- 
ketteter oder sonstwie 
verbundener Strukturen 
lassen sich nur mit einem 
Maschinenprogramm er- 
zielen. - 
Schnelle Bewegung al- 
leine macht noch nicht 
das aus, was man Sprite 
nennt. Mit geändertem 
Zeichensatz und schnel- 
len Maschinenroutinen 
kann man schon sehr viel 
herausholen. Was aber ein 
Sprite vor allen Dingen 
auszeichnet, ist, daß man 


es nicht nur zeichenweise 


über den Bildschirm 
schieben kann, sondern 
pixelweise, also in Schrit- 
ten von einem achtel Zei- 
chen. Dadurch sieht eine 
Bewegung viel fließender 
und gleichmäßiger aus, 
was besonders für lang- 
same Bewegungen wich- 
tig ist. Der schnellen Be- 
wegung vermag das Auge 
sowieso kaum zu folgen, 
sehr deutlich nimmt es 
dagegen die Sprünge bei 
niedriger Geschwindig- 
keit wahr. 

Eine Möglichkeit nun 


‘gibt es, Sprites mit Soft- 


scrollingeffekt zu pro- 
grammieren, ohne daß 
wir hierfür den Grafik- 
modus bemühen müssen. 
Wir verfahren folgender- 
maßen: 

Wir unterteilen die Be- 
wegung in zwei Stufen. 
Die eine Stufe besteht in 
einer groben und sprung- 
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haften Bewegung einer 
Blockfigur, die zeichen- 
weise geschieht. Eine Un- 
terteilung dieser groben 
Bewegung können wir 
erreichen, indem wir die 
Zeichen, aus denen unse- 
re Blockfigur zusammen- 
gesetzt ist, durch Ver- 
schieben der Bitmuster 
so abändern, daß die 
Blockfigur nun wie um 
ein Pixel verschoben aus- 
sieht. Damit wir Hinter- 
grund und Figur nicht 
durcheinanderbringen, 
verschieben wir nicht ein- 
fach Bitmuster im Zei- 
chensatz, sondern bewah- 
ren unser Figurmuster an 
anderer Stelle auf. Dort 
verschieben wir die Bit- 
muster. Die Überlagerung 
des Figurenmusters mit 
dem Hintergrundmuster 
erst schicken wir in die 
dafür vorgesehenen Zei- 
chensatzadressen. Wenn 
unsere Figur eine Größe 
von 3*3 Zeichen besitzen 
soll, so müssen wir für sie 
eine Matrix von 4*4 Zei- 
chen verwenden, da die 
Figur in dieser Matrix ja 
um ein Zeichen jeweils 
vertikal oder horizontal 
verschoben werden muß. 
Wenn eine Grenzüber- 
schreitung nötig werden 
würde, wird die Figur in 
der Matrix wieder um ein 
ganzes Zeichen zurück- 
versetzt und dafür eine 
Grobbewegung durch 
Versetzen der Blockfigur 
vorgenommen. 


SOFTSPRITEPRO- 
GRAMM IM NACHSTEN 
SONDERHEFT 


Wir arbeiten gerade an 
einem Programm, das Ih- 
nen die Erstellung eigener 
Maschinenroutinen ab- 
nimmt und für Sie die 
Verwendung von Soft- 
sprites zu einer einfachen 
Sache macht. Sie sollten 
daher das nächste Son- 
derheft nicht verpassen. 

A. Mittelmeyer 


BEWEGUNGSDBEMO — Me 


18 rem bewegungsdemo=======c165 <Ik> 
28 rem (p) 7/87 commodore welt <pk> 
30 rem =======-================ <0j> 
48 rem (c) by a.mittelmeyer <kg> 
58 rem <mb> 
680 rem <ml> 
78 rem basic v3.5 <cd> 
BB rem c16/116/plus4 <ph> 
98 rem ===========2============ <ge> 
1008 gosub678 <io> 
110 rem ==============2======== <d]l> 
128 rem = auswahlmenue = <ba> 
130 rem ====================== <ep> 
148 scnelr:print:print:print <on> 
158 fori=itoß:print:reada$:pri 

ntbl$a$:next <lo> 
160 getx:ifx=dthen168 <ng> 
178 on xg0t0298,370,478,588 <an> 
188 data bewegungsdemo <ad> 
198 data --------------------- 

age : <kg> 
e08 data 1 = lineare bewegung <an> 
218 data 2 = bewegung in der e 

bene <oj> 
220 data 3 = kettenfigur <bh> 
238 data 4 = blockfigur <mc> 
248 data ---------------- ----- 

Ze Zeig <ni> 
258 data treffen sie ihre wahl 

! <nn> 
260 rem ====================2== <nc> 
278 rem = lineare bewegung = <gm> 
288 rem =====-=-=---============= <0g> 
298 scnclr:y=12:x=8:p=® <jd> 
380 char, Pp,y," achar,X,.y,"0o" <ga> 
318 if x=dthenr=1 <ni> 
328 p=x:ifx=39thenr=-] <fn> 
330 x=x+r:goto3dd <pp> 
‚340 rem ====================== <00> 
3580 rem = bew. in der ebene = <ef> 
360 rem ====================== <dg> 
378 scnelr:x=98:y=9:xp=2:yp=® <mn> 
380 chär,xp,yB,." ":cCchar,.x,y,."o 

z <fi> 
398 ifx=®thenrx=1 <ia> 
408 ify=Bthenry=1 <im> 
418 ifx=39thenrx=-] <hl> 
428 ify=24thenry=-1 <ib> 
430 XP=x:yp=y!x=x+trx:y=y+try:go 

t0388 5 <ja> 
440 rem ====================== cjg> 
4580 rem = verkettung = N]? 
460 rem === === === === ====== 0 <jk> 
478 scnclr <lp> 
488 ifxx(1,1)=®thenrx=1i <bb> 
498 ifxx(1,2)=dthenry=1 <bn> 
580 ifxx(1,1)=38thenrx=-1 <al> 
SsıQa ifxx( 1,2) =24thenry=-1 <bc> 


528 fori=5to1lstep-1:xx(i+1,1)= 
RECI, WErxl Iris, erst L,2Tanext 
530 xRCT, I FRxLT, VER 
=xx(1,2)+ry ES 

548 fori=1t0oS:char,xx(i,1),xx( 
12) "0- snexti;char xx(l6,1) x 


6,2)," ":sgoto48D 

S5®0 rem ======-==2==== === = === === 
568 rem = blockfigur = 
S7B rem ===-==-====2=2=2=2=2==2===2=== >= 


588 scenclr:y=12:a$=" O"+zm$+"P 
"+zj$+"W"+29$+" L"+ze$+zp$:x= 

® 

598 for i=1to3:forj=4tolstep-1 

600 xx$( jJ,i)=mid$(a$,(i-1)*4+5 

-j,1):nextj:nexti 

618 x=x+1:ifx=39thenx=d 

6228 fori=4to2step-1:x(i)=x(i-1 

) next ; 

630 x(1)=x:forj=1t0o4:fori=1to3 


648 char,x(j),y+ti,xx$(jJ,i) :nex. 


ti:nextj:goto61® 

658 rem nachspann 
668 rem * zeichensatz/graphik 

678 z9$=chr$( 178) :ze$=chr$( 175 
) 

680 zj$=chr$( 188) :zm$=chr$( 183 
) 

698 zp$=chr$( 186) :b1$=" ":bl$= 
b1$+b1$:b1$=b1l$+b1$ 

78028 return 

718 rem 
720 
738 
740 
758 


"memory 
program 
variables 
arrays 
strings 
fre(®) 


Ber. LISTING | 


HEROS-DREI GEGEN 
DAS INFERNO 


Drei Männer einer Speziäleinheit werden mit einem 
Hubschrauber abgesetzt, um die von einer. Brandkata- 
strophe gefährdeten Menschen zu evakuieren. Sie 
müssen über einen sehr guten Orientierungssinn, 
Koordinationsvermögen und Risikobereitschaft ver- 
fügen, um die Aufgabe zu erfüllen. 

In einer vereinzelt besiedelten Gegend ist ein Feuer 


ausgebrochen, wodurch mehrere Menschen von den - 


Flammen eingeschlossen sind. Eine Eindämmung des 
Feuers ist sowohl in östlicher als auch in westlicher 
und nördlicher Richtung gelungen. Dagegen treibt 
nachts ein scharfer Wind aus Richtung Süden das 
Feuer unaufhaltsam weiter. 

Um die eingeschlossenen Bewohner dieses Areals 
zu retten, werden 3 Männer einer Spezialeinheit 
(Spieler) mit einem Hubschrauber abgesetzt. 

Sie sollen alle Betroffenen aus ihren Häusern holen 
und sie zur Evakuierung zum Hubschrauber bringen. 

Die Spiellandschaft besteht aus einer Fläche von 
20 mal 40 Quadraten. Je nach Art dieser Quadrate er- 
fordert das Durchqueren jeweils ein bestimmtes Maß 
an Zeit und Kraft. Auch die Brennbarkeit ist unter- 
schiedlich. Zudem ist mit verschiedenen Landschafts- 
quadraten eine Besonderheit verbunden. Einzelheiten 
können der Landschaftsliste entnommen werden. 

Jeder der 3 Retter (Spieler) hat eine besondere 
Eigenschaft, die durch mitgeführte Gegenstände be- 
dingt ist: 

1. Spieler: Das Boot ermöglicht eine Wasser-Durch- 
querung (pro Person 10 Min.) 

Die Strickleiter erlaubt ihm das Überwin- 
den eines Berges in 60 Min. (statt 180 
Min.) 

Er bleibt durch seine Pistole im Wald von 
Wölfen unbehelligt. 


2. Spieler: 
3. Spieler: 


Zum Spielverlauf: 

Zuerst wird gemeinsam das Landefeld des Hubschrau- 
bers bestimmt. Es bildet des Ausgangspunkt für alle 
3 Spieler. - 

Danach folgen alle weiteren Kontrollen über Joy- 
stick (Port 1). 

Derjenige Spieler, welcher am Zuge ist, sieht die 
Landschaft, in der er sich befindet, ausschnittsweise 
und seitlich abgebildet. Er kann dabei zwischen der 
WEST-OST-Achse (Blickrichtung NORD) und der 
SÜD-NORD-Achse (Blickrichtung WEST) wählen 
(FIRE). Seine genaue Position wird durch Pfeile am 
Boden der Landschaft angezeigt. LI/RE-Bewegungen 
mit dem Joystick ermöglichen eine Positionsverschie- 
bung in die gewünschte Richtung. Nach der Abrech- 
nung von Zeit und Kraft erfolgt der nächste Spielzug. 
Weiteren Handlungsmöglichkeiten: 

— Wird der Spieler in einem Wald von Wölfen ange- 
griffen, hat er die Wahl auf Nahrung (Opfer) oder 
auf Kraft (Kampf) zu verzichten. 


— Gelangt der Spieler in ein Haus, schließen sich alle 
Hausbewohner automatisch dem Spieler an. Da- 
nach kann er die im Haus-vorhandene Nahrung 
mitnehmen, oder eigene Nahrung für Mitspieler 
dort deponieren. 

— Durch das Einlegen einer Rast (Joystick nach 
hinten + FIRE) kann er durch Nahrungsverbrauch 
seine Kräfte wieder auffrischen. Je mehr Personen 
sich dem Spieler angeschlossen haben, umso mehr 
Nahrung wird zur Auffrischung der Kraft benötigt. 
Die Kraft kann über ein gewisses Maß (Sternchen- 
kette voll!) nicht regeneriert werden, so daß ein 
Zuviel an Nahrungsverbrauch vergeudet wäre. 

— Beim Erreichen des Hubschraubers kann dieser neu 
positioniert werden. Hierbei muß darauf geachtet 
werden, daß eine Landung im Feuer oder auf Häu- 
sern zum Spielabbruch führt. Durch den Hub- 
schrauber kann der Spieler seine mitgeführten Per- 
sonen abladen und beendet seine Spielzüge inner- 
halb der Spielrunde. 


MIT FÜNF KILO NAHRUNG VERSEHEN, HABEN 
SIE ZEHN STUNDEN ZEIT, DIE 
EINGESCHLOSSENEN ZU RETTEN 


Am Anfang jeder Spielrunde (Tage) steht jedem 
Spieler ein Zeitkontingent von 600 Minuten zur Ver- 
fügung. Als Proviant bekommt er am Spielanfang 5 kg 
ae Er beginnt ferner mit 4/5 seiner möglichen 

raft. 

Der Zeitverlust ist durch die Landschaftsquadrate 
fest vorgegeben. Der Kraftverbrauch wird außer von 
den Quadraten auch von der Proviantmenge be- 
stimmt, deren Mitführung den Spieler belastet. Auch 
dieser Wert wird in ein Verhältnis zur Personenzahl 
gesetzt. 

Sobald die Zeit eines Spielers verbraucht ist, wird 
seine aktuelle Position in Bezug auf die ihn umgeben- 
de Landschaft aus der Vogelperspektive dargestellt. 
Danach ist der nächste Spieler an der Reihe, der dann 
a Landschaft statt von oben wieder seitlich 
sieht. 

Haben alle 3 Spieler ihre Zeit verbraucht, bricht die 
Nacht herein und das Feuer breitet sich gemäß den je- 


weiligen Landschaftsquadraten aus. 


Weder bewohnte Häuser, noch Spieler, noch der 
Hubschrauber dürfen vom Feuer erreicht werden. 

Wenn dieser Vorgang abgeschlossen ist, beginnt ein 
neuer Tag (Spielrunde) und jedem Spieler stehen wie- 
der 600 Minuten zur Verfügung, um seine Spielzüge 
machen zu können. 

Sobald alle vermißten Personen zum Hubschrauber 
gebracht wurden (kontrollierbar durch die Zeile am 
unteren Bildschirmrand), haben die Spieler ihre Mis- 
sion erfolgreich abgeschlossen. 
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Die Gründe für einen Spielabbruch sind numeriert 
und stehen in Klammern neben der entsprechenden 
Meldung: 

= Spielfeldüberschreitung 

= zu wenig Kraft 

= im Wasser versunken 

= im Sumpf eingesunken 

= vom Feuer erfaßt 

= den Wölfen zu wenig geopfert 

= Hubschrauber verschollen (Haus oder Feuer) 

= Feuerfront erreichte Spieler 

= Feuerfront erfaßt Hubschrauber 

= Feuerfront erfaßt bewohntes Haus _ 
Das hiermit vorliegende Programm “HEROS” für 
den C16 ist formal den Grafik-Adventures zuzuord- 
nen, hat aber von der Spielweise her das Charakteri- 
stikum eines Strategie-Brettspiels. 

Der Grund hierfür liegt darin, daß ich eine ausge- 
sprochene Abneigung gegen Adventures habe. Vor 
allem das endlose Suchen nach Schlüsselwörtern und 
die schier ewige Spieldauer machen bei mir jeden 
Trieb zunichte. Folgedessen bemühte ich mich, ein 
Programm zu schreiben, bei dem der Lösungsweg von 
vornherein feststeht und der Schwerpunkt mehr bei 
der Strategie liegt. Der zweite Aspekt, der mich bei 
fast allen Computerspielen stört, ist das Einzel- 
kämpferischa und Kommunikationsunterdrückende 
“HEROS” kann deshalb allein, zu zweit oder zu dritt 
gespielt werden, wobei die Spielhandlung geradezu 
zur Kommunikation zwingt. Ein Novum dürfte es 
sein, daß bei “HEROS” alles Bemühen auf ein Mit- 
einander statt auf ein Gegeneinander hinausläuft. Da- 
mit aus dem Spiel kein wochenlanges Frustrations- 
training wird, beläuft sich die Spiellänge auf ca. 
90 Min. 

Jeder Spieler sollte bei “HEROS” über einen sehr 
guten Orientierungssinn, Koordinationsvermögen und 
Risikobereitschaft verfügen. Dies vorausgesetzt, be- 
steht eine faire Chance, die Spielaufgabe zu erfüllen. 
Anfangs wird die Spielaufgabe sehr erleichtert, wenn 
man sich eine Karte der Landschaft anlegt. 

Größte Mühen bestanden in der Verwirklichung der 
Spielidee in Hinblick auf den geringen Speicherplatz. 
Trotzdem wurden an der Grafik oder am Spielge- 
schehen keine Kürzungen vorgenommen. Platz ent- 
stand durch die Numerierung von Spielbeendigungs- 
gründen, durch Verzicht einer programmierten An- 
leitung und aus der Zufallserrechnung der Spielland- 
schaft. Letzteres sorgt zudem für mehr Abwechslung. 


OVDDODoSaAWnPBWD- 


jean 


Undimensionierte Variablen 


A,B,C,D = Universelle FOR-NEXT-Variablen 


DA = READ-Variable zur Feuerfrontberech- 
nung ; 

DB = READ-Variable zur Festlegung der 
Feuerstärke 

DF = Kürzel für FE./. () 

DZ = Zähler für Feuerfront 

HB = Obere Begrenzung für J 

HH = Hubschrauber-Eingabe Horizontal 

HK = Markierung für Haus 

HV = Hubschrauber-Eingabe Vertikal 

J = Joystick-Abfrage 

KR = Kraftrate 

E = Max. Länge der Landschaftsanteile 

EG& = POKE-Ausgangspunkt für Kartendar- 
stellung 

NE = Markierung für neuen Bildaufbau 

PG = Gerettete Personen 

PT = Gesamtzahl der zu rettenden Personen 

PU = Personen Unterwegs 

RI = Richtungsmarkierung 

S = Senkrechte Spielerposition (grafisch) 

SB = Untere Begrenzung für J 

SP = Spieler-Nr. 

VH = Ausgangsposition der Feldbelegung 

Y = Begründung für Spielabbruch 

VA. = Zeit 

ZR = Zeitrate 

Z1-Z4 = Zufallsvariablen 


SPIELANLEITUNG (LISTE DER LANDSCHAFTSQUADRATE) 


FARBE BEDEUTUNG ZEIT KRAFT 
Grün Rasen 30 Gering 
D.-Grün Wald 60 Mittel 
Blaugrün Sumpf 60 Groß 
Blau Wasser 10 Groß 
Gelb Sand 40 Mittel 
Braun Berg 180 Groß 
Rot Haus 30 Gering 
Rosa Feuer ia, 


BRENNBAR BESONDERHEITEN 

Gut Keine 

Gut Überfall durch Wölfe möglich 

Mittel Nur einzeln durchquerbar 

Schlecht Nur mit Boot durchquerbar (Zeit 
pro Person) 

Mittel Keine 

Schlecht Mit Strickleiter nur 60 Min. 

Mittel Im Haus sind Personen und 


Nahrung 
—— Nicht durchquerbar 
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18 rem heros===============016 
28 rem (p) 7/87 commodore welt 
30 rem ====-====-=-======-2===== == 
48 rem (c) 1987 peter bergen 
5@8 rem hildesheim 

68 rem 

78 rem basic v3.8 

88 rem c16/116/plus4 

98 rem ================ 72220 n=- 


BR gosub 20869:g0t02982 

118 gosub 25609:poke65298,8:pok 
e65299,68:printbk$; :g0oto238 
120 11$=gr$+"ACAC"+gr$+"BDBD"+ 
bkR$+"EFEF"+1r$+zZ6$+26$8+zZ6$+Z6$ 
:g0t:0958 

138 11$=br$+"..T."+br$+"PQRS"+ 
br$+"LMNO"+1r$+z6$+z26$+z6$+z6$ 
:g0t0958 , 
148 11$=re$+zf$+zr$+zr$+zuß+ig 
$+"GHHI"+1g$+"GHJUK"+1r$+z6$+z6 
$+z6$+z26$:g0t0958 

158 11$=wh$+"...."+bDKRE+"UVY "+ 
BRS+"WX.."+1lr$+z6$+z26$+z6$+z6$ 


:g0t0958 

168 11$=wh$+"...."+uhß#+". ..."+ 
wh$+"...."+re$+z1$+z1$+z1$+zi$ 
:g0oto958 

178 TISewhb+". ...-TruhßHt. .. .9# 
wh$+"...."+b1$+z0$+z0$+z0$+z0$ 
:g0t0952 

188. 11$=wh$+"..:."+whß+"...."+ 
wh$+"...."+ye$+z1l$+zl$+zl$+z1$ 
:g0t095% 

198 11$=wh$+"... ."+twhßr". .. "+ 
wh$+"...."+g2$+z1$+z1l$+z1l$+z1$ 
:g0t0952 

208 11$=wh$+"...."+wh$+"...."+ 
wh$+"...."+1r$+z6$+z26$+z6$+z6$ 
:g0t0952 


218 data53,10,78,3, 
57 ,.9:99.,:170,.66,5 

2280 data53,60,4,70,10,8,183,48 
‚6,76,90,8,57,188,10,99,30,2,6 
6,30,2,0,30,2 2 

230 dimf%( 20,40) ,h%( 4,20) ,s% 23 
‚5),d%l 9) ,n$(3) ,12$(4),13$(4), 
fe%( 20) ,q$(3) 

240 a=rnd( -ti):q$( 1)=zeg$:q$(2) 
=zq$:q$( 3) =z4$ 

258 fora=1t0o28:fe%[l a)=1:next:c 
olor4, 1:colerT,3,3:vol6 = 
260 scnelr:gosub1988:gosuh1968 
:gosub1440 

278 forsp=1t03:s%( sp, 1)=hv:s%( 
sp,2)=hh:s%( sp,5)=1:s%( sp,3)=7 
5:5%( sp,4)=5®:next 2 
288 ri=1:sp=1:z=-6808:gosuh1858 
298 gosub83d:sp=2:5=8:10=3392: 


103,5,76,5, 


<ijid> 


<dk> 


<köä> 


<1i > 


<km> 


<kj> 


<dd> 


<bi> 


<op> 


<gl> 


<1l1> 


<gm> 
<mi> 


"gosub1618:5p=23: 


s=18;Le*37 12:80 
sub 1618: sp=1:s=®:1c=3972 
388 ifri=2thengoto3äß 


312 gosub458 


328 ifz<1Ithengosuh1618:g0ta?68 
338 ifjoy(l 1) =7thens%l sp, 1) =s%( 


sp, 1j-1:gosub518:gosub83@:goto 


578 

348 ifjoyl( 1)=3thens% sp, 1)=s%l 
sp, 1)+1:gosub538:gosub83ß:goto 
578 

358 ifjoy( 1)=128thenri=2:g0to3 
88 

368 ifjoyl 1)=133thengosub 1394 

378 goato2328 

380 gosuh478 

398 ifz<1thengosub1619:90t0768 
408 ifjoy( 1)=7thens%( sp,?)=s% 
sp,2)-1:gosubS519:gosub839:goto 
578 

a18 ifjoyl 1)=3thens%[ sp,3) =s%t 
sp,2)+1:gosub5308:gosub83ß:goto 
578 

428 ifjoy( 1)=128thenri= 
10 

438 ifjoy( 1)=133thengosub 1398 

448 g0t039®8 

450- g0sub499:gosub5QR:gosuhß3® 
:g0osub558:chsr1,8,s,re$+trn$+"w 
est-ost"+rf$ 

468 gosub?75ßB:return 

478 gosub499:gosuhS5Ql:gosubH3R 
:g0osub558:chari,@,s,re$+rn&$+"s 
ued-nord"*+rf&$ 

488 gosub?75@:return 

498 poke2R22,s:poke?2%23,R:poke 
2B21,s+t&6:poke2824,27:scenclr:re 
turn i 

588 char1i,12,s+6,rn$+tre$+zBöß+y 
q$+zB8$+yq$+rf$:return 

51a fora=-1t04:13$( a) =mid$t 12$( 
8) ,13,?3) :next 

528 forb=-5to2step-1:gosubS6®ß:n 
ext:’return 

5238 fora=1t04:13${ a)=midf( 12$ı 
33 6 IT ENEX Et 

548 forb=-6t011:g0sub56A 
eturn 


:g0oto3 


: MEXter 


"558 c=-1:fora=s+2t0os+5:char1,ß, 


a, :printmid${(12$(c),6,35) :c= 
e+ti:next:;return 

568 c=1:fora=s+t2tos+5:char!,®, 
8,13$( ©) :print;mid$( 12$(c),b,3 
5) :ce=c+i:next:return 

578 restore22ß:v=s%( sp, 11 :h=s% 
(sp,2) :ifv<elorv>2ßorh<Icorh>4ßt 
heny=1:8g0t01778 

SAE8 fora=1iItoß:readh:readce:read 
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<bd> 


<ac> 


<fn> 
<gg> 


<pFf> 
<xpm> 
<am> 
<ip> 
<35? 


<kf> 
<km> 


<dn> 


<ha> 


<le> 


<nl> 


HEROS DREI 


kr:iff%lv,h)=bthenzr=c 
598 next:ifs%( sp, 4) <Athengoto6 
18 
628 kr=kr+int(((s%Lsp,4) /s%( sp 
‚5))/58)+.5) 
618 iff%lLv,h)=53thengosub 19048 
628 iff%lLv,h)=7Bandsp<>Itheny= 
3:g0t01778 
a 
D,.5 
648 iff%lv,h)= -76ands%( sp,S)>1t 
heny=4:90t0177® 
658 iff%Lv,h)=57andsp=2thenzr= 
int(zr/3) 
668 iff%lLv,h)=107theny=5:goto1 
778 2 
678 iff%lv,h)=dthengosub 1302 
688 iff%lv,h)=66thengosub1138 
6928 s%l sp,3)=s%l sp,3) -kKr:ifs%t 
sp,3)<@®thenchar1,29,s+5," ":y= 
2:g80t01778 
788 ifne=1thenne=9:gosub?738 
71@ z=z-zr:gosub?759:gosub81® 
728 ifri=1thengoto32@:elsegoto 
398 
730 ifri=ithengosub45®:elsegos 
ub478 
748 gosub?5B: ee 
752 chari,12,s,re$+rn$: printus 
re a Ban En 
7682 ifsp=1thensp=2:s=8:10=3392 
ri=1:2=600:g0sub839:g0t038® 
778 ifsp=2thensp=3:s=16:1c=371 
2:ri=1:2=600:gosub839:g0t0308 
788 gosub1948:g0sub1679:gosub! 
958 :g0sub 1928 
798 sp=1:s=8:1c=3072:g0sub1610 
:sp=2:5=B:1c=3392:gosub 1618:sp 
=3:5=16:1c=3712:g0sub1618 
808 sp=1:5=8:1c=3092:ri=1 
0:g0sub8398:g0t0302 
3:0) Chart, 29,55, aan. A 
fora=29t029+int(s%(sp,3)/1®) 
828 chari,3,s+5,re$+" ınext:r 
eturn 
838 ifri=1Ithengosub96Q:elsegos 
ub 1222 
848 Fora=1t04:12$(la)="" 
850 fora=1t09 
868 ifd%la)=53then1290 
870 ifd%l a) =57then132 
888 ifd%l a) =66then142 
890 ifd%[l a) =Bthen 159 
900 ifd%l a) =187then 162 
918 ifd%la) =78then 170 
9208 ifd%( a) =193then 188 
938 ifd%l a) =76then 192 
948 ifd%(l a) =98then29® 


ız=608 


next 


GEGEN DAS 


INFERNO 


950 forb=1t04:12$(b)=-12$(b) +mi 
d$(11$,5*b-4,5) :next:next:retu 
rn - 

9608 b=1:fora=s%( sp, 1) -4tos%( sp 

Er 

978 ifa<lora>2@thend%( b) =107: g 
- 00998 

988 d%lb)=fF%la,s%lsp,2)) 

998 b=b+i:next:return : 
1888 b=1:fora=s%( sp,2) -4tos%(s 
p,2)+4 

18108 ifa<lora>4ßthend%(b)-=1097: 
g0oto1832 

1828 d%lLb)=f%lLs%lsp,1),a) 

1238 b=b+1:next:return 

1848 zi=int(rnd( 1)*3) :ifzi<>1o 
rsp=3thenreturn 

1858 fora=1t028:b=int(rnd( 1)*9 
82) :sound2,b,4:next:z2=int(rnd 
(1)*18) +1 

108680 gosub498:printre$"woelfe 
greifen sie an!" 

18728 print"wasehlen sie zwische 

"sprintoprint "li=skaempf":prin 

t"re=opfer" 

10888 ifjoy( 1)=?thens%( sp,3) =s% 
(sp,3) -z2*2:ne=1:g0sub198®:ret 
urn 

1898 ifjoy(l 1)=3thens%[sp,4)=s% 
(sp,4) -( z2*18) :gosub111®:ne=1: 
gosub19828:return 

1108 goto1288 

1110 ifs%l sp,4)<1Itheny=6:goto1 
778 

1128 return 

1138 sound1,818,28:sound1,854, 
20:sound1,881,28 

1148 fora=1to2B:ifs%( sp, 1) =h%( 
1,a)ands%( sp,2)=h%(2,3a)thenhk= 
8 

11580 next 

1168 gosub498:printre$"im haus 

finden sie vor:" 

1178 gosub1298:5s%( sp,5)=s%( sp, 
5) +h%( 3,hk) :pu=spu+h%( 3,hk) :h%( 
3,hk)=® 

1188 hb=h%L4,hk)/10:sb=s%( sp,4 
)/18:j=8:gosub1218 

1198 h%4,hk)=h% 4,hk)-j*10:5% 
(sp,4)=s%( sp,4) +j*19:g0sub498: 
gosub 1908 :g0osub1928 

1208 ne=1:return 

1218 char1,8,s+5,"re=> / li=< 
/ fire=sannahme":gosub 1288 

1228 ifjoy( 1) =3thenj=j+1:gosub 
1268 

1238 ifjoy( 1)=7thenj=j-1:gosub 
1270 
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<mc> 
<ij> 
<nd> 
<hi> 
<hg> 
<ld> 
<bp> 
<jp> 
<jp> 


<mf> 


<pc> 


<hh> 


<cl> 


<ao> 


HEROS — ERE7E 


248 ifjoy( 1)=128thengosub 1908 
: return 

1258 goto1228 

1268 ifj>hbthenj=j-1I:return 
12708 ifj<-sbthenj=j+ti:return 
1289 chart; 711,8#6,."" rprintusin 
g"HAhHa",j:return » 

1298 printh%(3,hk) ;"personen": 
printh%(4,hk)/1@;"kg nahrungsm 
ittel":return 

1380 fora=1t029:sound1,1®80,2:so 
und1,48,4:next 

1310 pg=pg+ts%l sp,5) -1:pu=pu-s% 
(sp,5) +1:s%( sp,5)=1:gosub192B: 
gosub 1928 

1328 ifpg=ptthengoto1888 

1330 gosub498:print;"kurs: w/o 
=";s%sp,1);"# s/n=";s%(sp,2) 
1348 char1,8,s+2,"neuer kurs w 
est/ost:":sb=-1:hb=28: j=1:gosu 
b1218:fora=1to1®®:next 

13580 a=j:char1,8,s+2,"neuer ku 
rs sued/nord":hb=4®: j=1:gosub1 
210:b=jJ : 

13680 iff%la,b)=660orf%(a,b)=187 
theny=7:g0t01778 

1378 f%ls%lsp,1),s%( sp,2))=9B: 
f%la,b)=® 

1388 ne=1:z=®:return 

1398 sound1,818,29:sound1,881, 
28:sound1,854,28 

1408 gosub498:print"wieviel na 
hrumg-'s611;%:.x... ‚verbraucht w 
erden?"c4$ 

1418 hb=s%l sp,4) /18:sb=-®: j=R: 
gosub1218 

1428 s%( sp,3)=s%l sp,3)+int( ( j* 
10/s%l sp,5))+.5) :ifs%( sp,3)>98 
thens%( sp, 3) =98 

1430 s%( sp,4)=s% sp,4) -j*10:z= 
z-30:g0sub 1909:g0sub819:gosub”? 
38:g0sub?5®8:return 

1449 fora=1t028:forb=1t048:7%( 
3,b)=9®:next:next 

1450 vh=15:1=5: forb=2t040:gosu 
b1548 

1460 fora=z2to( z2+z3) :f%(a,b)= 
z4A:next:next 

1478 vh=32:1=8:fora=1t028:gosu 
b1I548 
14880 forb=z2to(z2+z3) :f%la,b)= 
z4:next:next 
1498 f%Chv,hh) =@: fora=1t028 
1588 h%l 1,8) =int(rnd( 1)*28) +1: 
h%l2,a)=int(rnd( 1)*48) +1 
1518 iff%lh%l 1,8) ,h%2,8))=Bth 
engoto15B8 


1528 F%Lh%l1,a),h%2,a))=66 


GEGEN DAS 


<cf> 


<ok> 


INFERNO 


-153@ h%[ 3,8) =int(rnd( 1) #5) +2:p 


t=pt+h%(l 3,8) :h%( 4,8) =int(rnd( 
)*28)*18+180@:next:return 

1540 zi=int(rnd(l 1) #2) +1:ifz1=8 
thenreturn 

1558 z2=int(rnd( 1)*vh)+1:z3=in 
t(rnd(2)*1)+1:z4=int(rnd( 1)*7) 
+1 

1568 ifz4=1orz4=-6orz4=7thenzd= 
S3:return 

1578 ifz4=2thenz4=-7B:return 
1588 ifz4=3thenz4=1®3:return 
1598 ifz4=4thenz4=76: return 
1688 ifz4=-5thenz4=-57:return 
16190 gosub499:fora=s%( sp, 1) -3t 
os%l sp, 1)+3:forb=s%( sp,2) -1®to 
s%( sp,2)+1@ 

1628 ifa<lora>2Borb<1lorb>4Aßthe 
npokelc-1@24,187:pokelc, 160:go 
to164®8 

16308 pokelc-19824,f%(a,b) 
c,168 

1648 lc=1Ic+1:next:lc=lco+19:nex 
t 

1658 color1,7,4:char1,24,s+1," 
w":char1,24,s+2,"i"vchart', 22,s 
+3, ar" 

1668 char1,24,s+4,"i":char1,24 
‚s+5,"o":char1,18,s5+3,bk$+"*": 
return 

1678 fora=-1t028:dz=1:forb=1to4 
:df=fe%l a) :restore212 

1684 ifdf>48thendf=42 

169@ iff%la,df)=66thengosub175 
{a 

1788 forc=1to3:ifa=s%lc,1)andd 
f=s%lc,?2)theny=8:980t01778 
1718 next:iff%a,df)=dtheny=9: 
g0t0177® 

1728 fore=1t0?7:readds:readdb:i 
ff% a,df)=dathendz=dz+db 

1738 next:ifdz>9thenfe% a)=fe% 
(a)J+1:f% a,df)=1987:dz=dz-9 
174B next:next:return 

1758 fore=1to2B:ifa=h%l 1,e)}and 
df=h%l2,e)andh%( 3,e)>Btheny=18 
:g0t01778 

1768 next:return 

1778 fors=-588to1®step-2%: sound 
1,3a,4:sound1,3+188,?:next 

1788 scnclr:print;c4$c4$c4$c3$ 
c3$re$"leider scheiterte ihr e 
ansetzi 2: 

1799 gosub1929:g0t018?® 

1802 sound1,596,29:sound1,685, 
2e8:sound1,739,28:sound1,8318,4@ 
1818 senelr:char1,8,3,re$+f1$+ 
"sie haben es geschafft!"+Ffoß$: 


:pokel 
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<1ld> 


<kk> 


<mf> 
<ho> 
<i> 
<hd> 


<fh> 
<gb> 


<bh> 


<jp> 
<lg> 


<kp> 


<ao> 


<cg> 


<]l1> 
<ah> 


<pn> 
<bk> 
<san> 
<eh> 
<jc> 
<ni> 
<ig> 
<da> 
<mn? 
<bp> 
<ol> 


<tg> 


HEROS DAEI GEGEN. DAS .:INFERNO rn as 
g0sub 1922 <in> :readb:c=c+b:pokea,b:next:colo 
1829 chart1,;14,6, "fire = stanft <iis- - 42 <t32 
18380 ifjoy( 1) =128thenscncelr:ru 2090 sys832:poke55,255:poke56, 
n <kj> 59:restore2172 <ng> 
1848 g0t01830 ms 2108 reade: ifo=-Ithengoto2128 <jb> 
1850 - fora-Dt5?e: printrngbk$". 2110 fora=Bto?:reasdb:pokec*8+1 
BE Re BR a ee 5360+a,b:next:goto2108 <ae> 
ee a a "rf$:next <cc> 2120 key!l,"del-108"+chr$( 13) +" 
18628 forb= Bto22stepä:fora=btob Ben EDER SEITE FEN 1350 BBL 22 
+6:char1!,® LBEEEZEZEEEEZEEe D-"+chr$( 13) +"run"+chr$( 13) <In> 
er als Bat <bil> 2138 poke2935,0:sys56364: print 
1870 .printn$+" "irfg+"......., chr$(5); :end <am> 
Me et hamsah <cb> 2148 data162,0,189,0,208, 157,0 
1888 color1,7,4:b=1:fors=B8to22 ‚68,189, <kn> 
step8:color1,7,4:char1,3@,s,n$ 2158 data209,157,0,61,189,0,21 
(b) :gosub 199002 <ko> 28,157,8,62 <og> 
1898 char1,29,s+5, reg+"wwuwie 2168 data189,0,211,157,8,63,28 
#":char1,30,s+6,q$(b) :b=b+1:ne 2,208,229,96 <fn> 
xt:s=9:gosub192®:return <nc> 2170 data65,0,0,3,13,14,53,59, 
1988 char1,30,s+2,b1$+"p:":pri 111 <jf> 
ntusing"####" ;s%Usp,5) <gk> 2188 dats66,122,87,53,55,74,62 
1918 char1,38,s+3,"n:":printus ‚13,3 <bl> 
ing" AHH#";s%Lsp,4) /I®:return <om> 2190 data67,0,96,80,222,238,18 
1928 gosub1959:char1,0,24,re$: 7,173, 319 <pg> 
print;"gesamt:";pt;" gefunden: 2208 data68,189,215,181,254,23 
";pu;” gerettet:";pg;c2$ <nh> 8,184,1904,224 <mh> 
1938 return <bp> 2210 data69,1,5,35,15,1,1,85 <io> 
1940 char!1,0,24,re$+" in der n 2220 data79,224,192,192,192,19 
acht brennt das feuer weiter!" ‚192,224,240 <na> 
+c2$:return <gd> 2230 dat:a?1 37T, 29,25,31,25,25, 
1930 charı 2.24," asus. 31,31 <df> 
En ken nr a re "+c2$ 2240 data72,255,57,57,255,67;85 
return <pd> 7,2535 <de> 
1960 scnelr:printc4$c4$,c1$c1$ 2250 data73,248,56,56,248,56,5 
e1$"ihr hubschrauber landet." 6,248,248 <ed> 
‚e4$cA$f1$c3$c3$; <nc> 2260 data94,252,60,6908,252,63,6 
19782 print"bitte warten!"fo$:r 9,252,.252 <cj> 
eturn ins. 2278 data9S,24,24,24,24,24,24, 
1988 poke239,8:fora=1to3 <ak> 24,24 <gf> 
1998 printc4A$c4$"name des";a;" 2280 data76,21,31,47,59,95, 128 
.spielers":gosub2852 <pl> ‚175,258 <bp> 
2000 iflen(n$(a))>1ßthenprinte 2290 data77,237,239,247,246,25 
a$cA$F1$"zu lang!"fo$:g0t01990 <dn> 1,251 .263.,.258 <ec> 
2818 next:printc4$c4$8"landekoo 2300 data78,255,255,223,255,25 
rdinaten:" <im> 5,295,191,255 <da> 
SR8d: printaug"west.f set fin 2310 data79,224,240,240,248,24 
J";:inputhv:printc4$"sued / no 8.,252,254,255 | <dc> 
rd (1-40) ";:inputhh <fg> 2328 dats8®, 0:,.0.,.,0:,.0:.3:,.83, „AS <fe> 
2838 ifhv<torhv>2Borhh<1orhh>4 2330 data81, 1,2,3 N 207, 
Othengoto2228 <na> 215 <do> 
2048 return <in>s 2340 data82,254,255,191,255,22 
28058 printc2$left$(qr$,22);:in 3,299,258,,127 <fb> 
putn$(a):return <ha> 2358 data83,0,8,0,128,128,192, 
208680 scnelr:char1,15,5,"her 192,224 <bl> 
o s" <cl>» 2360 data84,2,0,0,48,120,188,2 
2078 char1,8,8,"drei gegen das 52,222 <op> 
inferno":return <kc> 2370 datsB5,63,9,2,3,4,9,8,9 <he> 
2888 restore214B:fora=832t0861 2380 data86,255,24,24,255,53,5 
25 
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HEROS = DREI GEGEN DAS IZNFERNO m Se 


3,127,255 

2398 daeta87,15,15,15,7,1,2,70, 
63 

2400 data88,255,255,254,252,24 
0,16,25,254 

2410 data89,243,3,7,255,255,25 
5,192,® - 

2420 data101,0,0,0,253,254,19, 
55,3 

2438 datal88,64,64,64,64,64,64 
‚84,64 j 

2448 data97,24,48,120,255,255, 
255,255,255 

2458 data112,0,1,3,5,15,23,29, 
127 

2468 data103,85,170,170,255,25 
5,255,255,255 

247® data113,16,52,118,247,8,2 
55,255, 126 

2480 data118,120,255,255,255,2 
5S5,255,255,255 

2490 data123,60,36,60,36,60,36 
‚60,36 

2508 data121,12,12,1490,255,255 
‚140,12,12 

251@ deta124,0,255,119,221,255 
‚119,221,255 

2520 data127,0,128,64,224,208, 
120,220,254 

253@ data98, 17,33,48,25,26,113 
‚119,254 

2548 data-1 

2558 rem nachspann =========== 
2568 rem farbcodes/steuercodes 
2578 wh$=chr$( 885) :c4$=chrf$( 81 


2580 rn$=chr$( 818) :re$=chr$( 82 
2598 c3$=chr$( 829) :gr$=chr$( 83 
2680 b1$=chr$( 831) :F1$=chr$( 13 
2610 fFo$=chr$( 132) :bk$=chr$( 14 
2620 c2$=chr$( 145) :rf$=chr$( 14 
2638 br$=chr$( 149) :Ir$=chr$( 18 
2648 g2$=chrä$f 152) :1g$=chr$( 15 
2658 e1$=chr$( 157) :ye$=chr$( 15 


2668 rem zeichensatz/graphik 
2678 zB$=chr$( 161) :z1$=chr$( 16 


2688 z4$=chr$( 165) :z6$=chr$( 16 
7) 
2698 z8$=chr$( 169) : zf$=chr$( 17 


<la> 
<sen?> 
<ch> 
<gk> 
<IKk> 
<fd> 
<ff> 
<k1l> 
<mf> 
<df> 
<an> 
<hi> 
<dc> 
= IF» 
<ih> 
<bd> 
<ng> 
<mh> 
<jh> 
<gn> 
<jo> 
<hl> 
<je> 
<kd> 
<jo> 
<mm> 
<kn> 


<mh> 
<hk> 


<ne> 


<ps> 


6) 
2708 
2} 
27108 
8) 
2728 
3) 
2738 
2748 
2758 
2768 
2778 
2788 
2790 
2800 
28108 
2828 
2838 
2848 
2858 

"2868 
2878 
2880 
2890 
2902 
2918 
2928 
2930 
2948 
2958 
2960 
2978 
29882 
2998 
3820 
3018 
3928 
3038 
380408 
3058 


ze$=chr$( 177) :z1$=chr$( 18 
zqa$=chr$( 187) :zr$=chr$( 18 
zu$=chr$( 191) :yq$=chr$( 22 


rem ####% zeichenfolgen 
for q=1I to 48 
qr$=qar$+c3$ 


rem 122977 bytes memory 
rem 07654 bytes program 
rem 20413 bytes variables 
rem Q2165 bytes arrays 
rem 808573 bytes strings 


rem 81024 bytes z.-satz 

rem memory voll genutzt 

rem ====-=------22==-=202=2= 
rem == achtung achtung == 
rem == programm loescht== 
rem == sich teilweise. == 
rem == deshalb vor dem == 
rem == start unbedingt == 
rem == sichern !!! == 
rem =================20=== 


rem bitte blanks ststt 
rem punkte in folenden 
rem zeilen setzen: 

rem 138-288,818,1408 
rem 1858-1878, 19582 


rem zeilen duerfen ohne 
rem entsprechende aen- 
rem derung von zeile 21282 
rem nicht umnummeriert 
rem werden 


CW SPECIAL 16: 
DIE 
NUMMER 1 


FÜR ALLE 
USER 
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Er EN en een 
TRICKY DICES 


Ein altbekanntes Spiel präsentiert sich unter neuem 
Namen. Es handelt sich hierbei um die Computerver- 
sion von Kniffel bzw. Yatzee. Anders als in einer an- 
deren Computerversion gesehen, können bis zu 5 
Spieler mitspielen, was dieses Programm gesellschafts- 
fähig macht. 

Für diejenigen, die die Spielregeln noch nicht ken- 
nen, seien dieses nochmals kurz erläutert. 

Ziel des Spiels ist es, am Ende einer Spielrunde 
möglichst viele Punkte zu haben. Ihr Spielzettel be- 
steht aus zwei Teilen. 


Zunächst zum Oberen: 

Würfel gleicher Augenzahl werden addiert und in 
die entsprechende der sechs Zeilen eingetragen. Es 
empfiehlt sich, möglichst drei Würfel gleicher Augen- 
zahl zusammenzubekommen, um bei 63 oder mehr 
Punkten einen Bonus von 35 Punkten zu erhalten. 


Und nun zum Unteren: 

Dreierpasch: mindestens 3 Würfel gleicher Augen- 
zahl. Alle Würfelaugen zählen. 

Viererpasch: mindestens 4 Würfel gleicher Augen- 
zahl. Alle Würfelaugen zählen. 

Full-House: je zwei und drei Würfel mit gleicher 
Augenzahl. 

Kleine Straße: 5 Würfel aufeinanderfolgender Augen- 
zahl, mit 1 beginnend. 

Große Straße: 5 Würfel aufeinanderfolgender Augen- 
zahl, mit 2 beginnend. 

Chance: Beliebiger Wurf. Alle Augen werden 
addiert. Ein Wurf, der sonst nirgends 
paßt, kann hier eingetragen werden. 
Gut ist es, möglichst viel Fünfen und 
Sechsen dabeizuhaben, wegen der 
Punktezahl. 

Tricky: 5 Würfel einer Augenzahl, es können _ 
auch mehrere Trickys in einer Spiel- 
runde eingetragen werden. 


Sie dürfen insgesamt dreimal würfeln. Nach jedem 
Wurf können Sie entscheiden, welche Würfel erneut 
geworfen werden sollen. Sollten Sie sich hierbei ver- 
tippen, so können Sie den Würfel mit der DEL-Taste 
wieder zurückholen. Nach dreimaligem Wurf müssen 
Sie sich entscheiden, in welcher Zeile (1 - 13) Sie den 
Wurf eintragen wollen. Eine Spielrunde ist nach 13 
Durchgängen pro Spieler beendet. 


27 


TEEN 


DICES 


18 rem tricky dices=======016= 
28 rem (p) 6/87 commodore welt 
38 rem ==s=er===-===- =, es 0eenen 
a0: nem (ec) 2787 by 

5@ rem matthiss tor 
62 rem neumuenster 

78 rem basic v 3.58 

88 rem 16/116’ plusäA 

90 rem =rssesueenuneereeesenen- 
BB gosub 2688 

118 trap1i29 

128 ifer=3ßdthenresume 

138 volßB . 
140 printchr$( 9) chr$t{ 142) chr$( 


ö}lhe$he$c1$ 
150 og=® 
168 color®,2:color4,2 


170 g0sub2558 
188 printtab( 13)bKk$rn$" tricky 
dices "rf$ 

1987-6 


198 printo4g". .sser ( 
y matthias flor “ 
-2B2 printcd$chr$( 27)"t" 

218 dimt%( 9,13) ,n$(9) ,sf(13},b 
009) ,ad( 9) ,pu( 9) ,ge(9) 

220 gosub2448:gosub2429:gosub! 
528 

238 sp=sp+1:forru=s1t013:fori=1 
toan:gosub3582 

248 #=9:g0osub8Qß:gosub?138 

258 gosub2B6R:ifaß<>" "then?5a 
268 forws=1to2:g0osub1469:gosub 
Y918:nextws:gosub1979:gosub8ßdd 
278 iff=1Ithengosub2498:gosuh2® 
8B:gosub24@8:ifbo(li)>1Ithengosu 
615089:g0t024® 

280 gosub22808:g0sub284B:posub! 
SYßd:nexti:nextru 

298 g0osub 1740 

388 gosub24978:printhefleftg(gd 


SI ERRTERT.. 2.235425 noch ein 
spLeln. Kerr): Ahern c 


318 poke239,0 

328 gety$:ify$="j"thengosub244 
8:g0t0238 

330 ify$<>"n"then32 

348 sys65529 
nee eo u ee areetl 
3682 printhe$he$c1$c3$bk$"1"rt$ 
"."blS"einers. sorgt Pan”, 
ELBE ae "rn$re$"O"; 
z2z=15:zz$=z22$:gosub285®:pr 
ine tPp” 

388 printbk$e3g"2" 
eier.."bkE"-- 
."rn$re$zk$; 
IIND ER de 2 


PB" Nbitzw 
ee gs 


<gj> 


<pj> 


<b]> 


<O6> 


402 printbk$c3E"3"rfg" 
eier.„"BkK$"-= "on". 
rnsregL": 


"b1l$"dr 
3 a 


a1& zz=15:z22$=-z3$:gosub?&ßd:pr 
intzp$ 
420 printukBe3gtdat’rfg" "brgvi 


: r bık. ea 


erer. "ung". "rigt r 
4389 :printbk$oaß"S"rfg" "Hip" 
enter "bR$T-- "pn", 

aaa printbk$cäh"E"rfb" "bil$"se 
chser "bk$"-- "In$"T.."rf"r,... 
"Sig 


459 print"gesamt:"bkä$rn&"..."r 
EI TENPEREL ne en ien. 
468 fForg=1t039:printlb$27$::ne 
xt 

4708 rem 

48% poke3391,184:poke2367,15:p 
rint:printbk$" ";tab( 20} ;ze$ze 


$ 

498 printbk$c3$"7"rf$" "b1l$"dr 
eierpäsch....- "BRS" "ern$". "rt 
gro 

SaB printbk$c3$"B"'rtg" "Blg"vi 
ererpeasch..... ER ER NEE 
$ 

S18 printbk$c3F"Y"rtf$" "bIg"Fu 
t]ı BOUsSe.....8: Tor! irn. 
$ 


see printbk$"1A"rfg"” 
ne strasse.."bk$" 
Ey "pu$z3ß: 

280 BEEME". „2 NZOR“ 
548 printbk$"11"rrg" 
se strasse... "bK$'* 
me "Lb8rn8$:; 

552 BEINETTITFERt Er REDE 
Nasa PHS" SIRER 


"bl$"klei 
a ed a 
" "23% 
"bl$"eros 
er Le ug 


5S6B printbk$"12"rF$" "oblg"chan 
RE RE re De a a ee A 
578 printc4$bKk$"13 "bl$"trickyv 

PER a ED Pe IR 
gg" " 


SH printcsftabl 27)pu$zäf".... 

"ZI 

5938 printger$"runde:"bk$rng$"... 

"rf$”.."B1$”"gesamt :- "Dkrng"”,. 

ae RER 

EBB printtabl 297) 1bErn$"Aarrf$", 
Eng 

618 return 

628 ifco=landasci af} =32thengosu 

b24EB 

63% gosub2418:printpuf; :onwpot 

ohAN,650,666,670,658,590.700 

649 printc4$ce3E"Q":return 

650 print"Q"”ca$rAa$c3$"Q":retur 
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<ha> 


<ad> 


<im> 


<eng> 


B f 


662 print"E"c4$"QA"cA$"Q": 
2) 

6780 print"Q"c3$"Q"c1$c1$c1$c4$ 
ceAa$"Q"c3$"Q":return 

5688 print"Q"o3$"Q"o4$gc1$c1$"Q" 
e4ag"QA"c1$c1$c1$"Q":return 

698 print"Q"c3$"Q"c1$c1$c1$c4$ 
"“a"c3$g"A"ce1$c1Fc1FcAF"QA"cI3F"Q" 
‚return 

708 print”.. ."cA$e1I$gce1$c18".. 
"2A$c1$c1$c1$" "z3$" ":return 
7128 mm=-B:forj=1to6:ift%li,s)=- 
Ithenmm=mm+1 

720 ah 
e(i)=ge(i)+mm 

7308 ifge(i)<63then?6® 
748 printleft$(dt$,7) ,c3$+c3$+ 
e3$+b1l$+"bonus"+bk$+".. 
n$+bKk$+"35"+rf$ 

7580 ge(li)=ge(i)+35 

768 mn=B:tor j=7to13 !ift%L.i, 5) > 
-ithenmn=mn+1 


retur 


ınext:g 


— "+r 


778 weli)=we(i)+t%li,j) :next:w 
e(li)=we(i)+mn+ge([i) 

788 printleft$(dt$,22) ;left$(g 
r$,18)bk$rn$;we(i) 

798 return 

802 printhe$c4$rn$re$;tab( 23); 
En sel ende ee er ";left$(1le$,13) 
‚n$(li):ge(i)=®:we(i)=® 

B10 gosub?1Q 

828 printleft$(dt$,28) ;left$(y 


r$,6)bk$rn$; ru 

838 printhe$bk$; 

840 forii=1to6:printtab( 14);rn 
$;:gosub9Rß:next 

852 printc2$rn$;tab( 28) ;mid$(s 
tr$(ge(li)),2,3) ;c4$04$c4$ 


868 forii=?to12:printtab(22);r 
n$; :gosub9BAQ:next 

878 printtab(22)rn$c48c1$;, 

888 ift%(li,13)=-1thenprint"--" 
rf$; :elseprintmid$( str $(t%li,1 


3), Asa) RTy5 

8980 return 

982 ift%l i,ii)=-1Ithenprint"--" 
skin telsehrintmidtl ser Et 
i,11)) ,2,2J):return 

912 gosub2178 

928 gosub2942 

938 gosub2528% 

948 ifasc(a$) =13thenh=B:return 
958 ifasc(la$) =28then992 

9562 ifa$<"1"ora$>"5"then92® 
978 c=vallaß) :h=ew(lc) :w(co)=9:w=s 
nr 


980 gosub1AAR:gosub62d:printbk 


$;:20t092 
398 w([c)=h:w=h:goto3982 
1988 print:print:onegoto1812,1 


vD20, 12830, 1858, 1962 

218 srink left ät den, ;tab( 26 
JASTeEEUTT 

12828 printleft$(dt$, 1!) ;tab( 31 
J2:speturn 

1838 printleft$( dt$, 11) ;tab( 36 
); wsreturn 

1840 printleft$(dt$,11):tab( 26 
); return zo 

1858 printleft$(dt$, 17) ;tab( 26 
);:return : 

18562 printleft$(dt$, 1?) 


;tab( 31 
); return : 


1078 gosub1468:g0sub2252:gosub 
2040 ars 
19888 ifa$<"Q"ora$>"Y9"theni978 
1898 printleft$(.dt$,24) ;tab( 21 
);a$:b$=a$ 
1128 gosub284B:ifasc[l a$)=13the 
nx=val(b$) :g0oto1148 

1112 ifasc(a$) =2thenb$="":goto 


1278 

1128 ifa$<"Q"ora$>"9"then2222: 
gosub24098:g0t01078 

11328 printleft$(dt$,24) 
);a$:x=vallb$+a$) 

1148 ifx<lorx>13thengosub222®: 
geosub24288:g0t01972 

1158 ift%li,x)>Bandt%li,x) <5Qt 
hengosub2198:gosub2408:g0t0197 
12) 

11680 t=®B:ifx<?thengoto1282 
1178 ifx<?thengoto1228 
1180 on(x-6)g0sub1278, 
0,1350, 1400,1420,1430, 
1198 g0oto1218 

1288 gosub 1258 
reta Ift<Tchent=-1 
osub2408 

1220 t%li,x)=t 
1238 ift%l i,x)>=5Q@thenf=1 
rn 
1248 
1258 
+x 
1268 nextp:return 

1278 forp=1to4:ri=Bd:fory=1t05: 
ifw(p)=w(y)thenri=ri+1 

1288 next:ifri>2then 14282 

1298 nextp:return, 

13828 forp=1to3:ri=B:fory=1toS: 
ifw(p)=w(y)thenri=ri+l 

1318 nexty:ifri>3then 14282 

1328 nextp:return 

1338 gosub12978:ifri<Sthent=®:r 


:tsb(22 


1300,133 
1978 


:gosub2340:g 
:retu 


f=2:return 
forp=1toS:ifw(p)=xthent>=t 
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eturn 

1348 t=25:return 

1350 058 

1368 z=d:f=-9d:fory=-1t06:forp=1t 
oS5S:ifw(p) =ythenf=f+1:z=1:iff>t 
thent=3@8:return 

1378 ifz=1thenz=9:p=5:nextp,y: 

g0t01398 

1388 nextp:f=B:nexty 

1398 t=B:return 

1408 t=4:gosub136R:ift=3ßthent 

=48:return 

14198 goto1398 

1428 t=w( 1) +Wwle 2) +Wwe 3) +WlA) +w( 5 

):return 

1438 ifw( 1)=w(2)thenifw(2)<>w( 

3)then1452 

1448 ifw( 3)=w(4A)thenifw(4)=w(5 

)thent=t% i,x)+5®:return 

1458 t=Bd:return 

1468 forp=1t05:w=int((rnd(og)') 

*6+1) :ifw(p)<>@Bthen148® 

1478 w(p)=w:c=p:gosub1QARl:gosu 

b628 

1488 nextp:return 

1498 fForc=1t05:g0sub1BBB:w=w(c 

):gosub62®:next:return 

152@ forp=1t05:w(p)=B:next 
1518 forc=1t05:w=7:g0osub 1Q0AR:g 

osub628:nextc:return 

1528 z=37:g0sub2398:g0sub253@ 
1538 printbk$c4$c3$"anzahl der 
spreler (1-9, 7%" 

1540 gosub2Q6Q:ifa$<"1"ora$>"9 
"then 1548 

1558 gosub252B8:ifa$="1"thenlx= 

4 

1562 printcl$:z=1690:g0osub2398: 

an=val(a$) :y$="tricksen":ifan= 
Itheny$="trickst" 

1578 print" -"bk$"es ";y$;an:"s 

pieler" 

1588 ifs$="n"thenreturn 

1598 y$="die":ifan=1theny$="de 

Su 

1682 printc4$" 

n eingeben!"c4$ 
1618 fori=1toan:printc4$"”..nam 

e des"i;c1$". mitspielers : "; 
1628 gosub164B:ifb$=""thenprin 
ttab( 28) ;c2$,,:g0t01628 

1638 n$(i)=b$’nexti:return 
1648 b$="" 

1658 printrf$"?"co1$; :gosub241® 
:gets$:ifa$=""thenprintrn$g+"?" 

+c1$;, :gosub2419:g0t01658 

1660 sys1015 

1678 ifasc(a$) =13thenprint" ": 


bitte 


"v$" name 


‚return 


1688 ifasc(a$)=2ßthenj=len(b$) 
-1:i1fj>=dthenprint" "+c1$+c1%+ 
" "+c1$:;: e 5 
1690 iflasc(a$)=2B)and( j>®)the 
nb$=1left$(b$, j) :goto165® 

1782 iflascla$f)=22)and( len(b$) 
=1)thenb$="":90t0165® 

17198 ifla$<"a"ora$>"z")and(la$< 
>"„")then1652 

1728 printa$::b$=b$+a$:iflen(b 
$) <18then1658 

1730 print" "return 

1748 fori=1toan:forp=7to13:pu( 
i)=puli)+t%li,p):next 

1758 bo(li)=B:ifge(i)>62thenbol 
i)=35 

1768 adli)=pu(i)+bo(li)+ge(i):n 
ext 

1778 printcl$c4$rn$lb$zf$; 
1788 fori=1t037:printzv$; :next 
:printzd$ 

1792 printrn$yo$"..endergebnis 
2 an an ee BUNdges"s "422 Vo 
$left$(q1$,4);sp 

1882 printrn$za$zv$zv$zv$zv$zv 
$zv$zv$zvV$zV$zV$zV$zv$zhßzußzv 
$zv$zv$zv$zh$zv$zv$zv$; 

18124 printzv$zv$zh$ßzv$ßzv$zvßzv 
$zv$zh$zv$zV$zV$zV$zVv$zV$Bziß 
SE2D BRrIBErNIYON" are & 
yo$"pkt. "yo$"bonus"yo$"pkt. " 
yo$"gesamt"yo$ 
1838 printrn$yo$” 
yo$"oben "yo$"( 35) 
WOS“ nn. "vo$ 
1848 printrn$za$ßzv$zv$zv$zv$zv 
$zv$zVv$zv$zV$zV$zV$zV$ym$zu$zuv 
$zv$zv$zv$ym$zv$zvV$zv$; 

1858 printzv$zv$ym$zv$zv$zuV$zv 
$zv$ym$zv$zV$zvV$zvV$zV$zV$zZiß 
1868 forp=1t015 

1878 
ROR: ea VOR mare OR erden Fr 
VOD s Fie a ine "yo$:next 

1880 printrn$zc$zv$zv$zvV$zv$zv 
$zubzv$zv$zV$zV$zVv$zV$zeßzußzuv 
$zv$zvV$zV$zg$zv$zv$zv$; 

1898 printzv$zv$zg$zv$zv$fzußzv 
$zv$zg$zv$zuV$zu$zV$zv$zV$zs$ 
19828 ifan>?7then1988 

1918 gosub2382:fori=1toan:prin 
tc4$rn$yo$" ";n$(i):next 

1928 gosub2382:fori=1tosn:prin 
tc4A$rn$;tab( 15) ;geli) :next 
1930 gosub2388:fori=itoan:prin 
te4$rn$:tab(21);boli):nexrt 
1948 gosub238B: fori=iItoan:prin 


"vo$"unten" 
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<pf> 


*1p> 
<hk> 
<af> 
<da> 


<ie> 
<sen?> 


<an> 
<nji?> 
<fh> 
zxem> 
<oi> 


<ek> 


<i6> 
<mi?> 
<eg> 
<ie> 
<1lc> 
<pji?> 


<aj>? 


<hi> 


N Fr ET ER u TE er 


VIRASZEBREY DIESES 


tc4$rn$;tab( 27) ;pu(li) :next 
1950 gosub2388: fori=1toan:prin 
tc4$rn$;tab( 34) ;ad(li) :next 
1968 rem: 

1972 return 

1988 gosub2388:fori=1toan:prin 


trn$yo$" ";n$(li) next 

1998 gosub2388:fori=itoan:prin 
trn$;tab( 15) ;geli) next 

2808 gosub2388:fori=itoan:prin 
trn$;tab( 21) ;bo(i) :next 

2819 gosub238B:fori=itoan:prin 
trn$;tab( 27) ;pu(li) :next 

2020 gosub2388:fori=itoan:prin 


trn$;tab( 34) ;ad(li) :next 

208328 g0t01968 

2848 printleft$(dt$,23)tab( 32) 
ve$23$23$23$23$z23$23$ 

28058 printtab(31)re$"[ "rn$"ret 
urn"rf$"]"bk$he$ 

2068 poke239,8:getkeys$ 

2878 return 

20888 boli)=bo(i)+1:gosub2338:p 
rintleft$(dt$,2®) 

2098 ifbo(li)=1Ithenprintre$+tc4$ 
+c4$+"**%* herzlichen glueckwun 
sch! *###":return 

2100 ifboli)=2thenprintre$+c4$ 
+c4$+"*#* herzlichen glueckwun 
sch! 

2112 ifbo(li)=3thenprintre$+c4$ 
+e4$+"*#* herzlichen glueckwun 
sch! *":boli)=?2 

2128 printbk$c4$"noch einmal w 
uerfeln!"he$:return 

2130 gosub233® 

2148 printhe$left$(qd$,21)bk$" 
zum wuerfeln bitte "re$; 
„2158 printrn$" space "rfg$" 
$"druecken !"he$ 

2168 gosub2538:return 

2178 gosub2338:printhe$lefty(g 


"bk 


d8,28)bk$c4$"welche(r) wuerfel 
soll(len) nochmals..." 

2188 print"zeworfen werden "re 

BEI 8... BR. "Refsretu 
I*7) 


2198 gosub2338:printhe$;leftgl 
dt$,22) ;bk$z3$z3$; 

2200 zz=24:22$=23$:g0sub285®B:p 
FIRtZ3$ 

2218 printrn$re$" zeile bereit 
s eingetragen!"he$:gosub253®:r 
eturn 

2220 gosub2338:printleft$(dts, 
22) 

22308 zz=29:z22$=z3$:g0osuh28582:p 
iNE ZB 


<oh> 


<mp> 
<hi> 
<eh> 


<ob> 


<gc> 
<go> 
SC» 


<hk> 
<eo> 


<ba> 


<ne> 


<no> 


<km> 


<na> 


<kc> 


<of> 


2248 printrn$re$"zeile nicht v 
orhanden"he$:gosub2S1ß:return 

22580 gosub2338:printleft$(gd$, 
ZEO)bK$"sie haben dreimal gewue 
PRBlET 23 
2268 print"in welcher 
Li der wurf,.." 

2278 print"gewertet werden?... 
."re$"[..]"he$:return 

2288 gosub2339 

2298 iflx=1thenreturn 

2308 ifi=anthenpl=1:elsepl=si+1 
2318 gosub2528 

2328 printleft$(dt$,23) ;b1l$"de 
Dr msechste Ist-"rn$” "n8lpL)" 

"PER" TO rpetunn 

23380 forj=3912t048048:pokej,32: 
next:printhe$:return 

23498 gosub2338 

2358 printleft$(gd$,22)bk®rn$r 
e$"eintrag nicht moeglich! str 
eiche zeile!"he$ 


zeile so 


2368 gosub251® 

2378 return 
2388 printleft$(dt$,7) ;rn$:ret 
urn: 

2398 return 

2408 Forj=1t0o288%:next:return 
2418 forij=1to15Q:next:return 
2428 dt$=he$+tleft$(gd$,24) 
2438 le$=left$(qyl$,34) :return 
2449 fori=2to9:forj=-Bto13:t%li 


‚3)=®:next:next:fori=dto13:sfl 
i)=®:next 

2450 fori=8t09:bo(li)=B:adli)=® 
:puli)=®:ge(i)=®:next:return 
2468 forgg=1to2%:rd=int(rnd( !) 
*108) :sound3,rd+608,3:fort=1to 
rd:next:next:return 

24978 restore 

2480 forgq=1to9:readqg!,q2:soun 
di,qg1,q2:sound2,qg1+7,g2:forg3= 
1toB*q2:nextqg3,gqg 

24980 data118,18,169,208,262,18, 
1178: ,93,,8,855, 5,985, , 10,2 
5,508 

2508 return 

2510 forgqgy=-388todstep-5:soundl 
‚g9g9,2:sound2,qgqg+?,Z:next:retur 
n 

2528 sound1,588,2:sound1,7882,1 
:sound1,75B,2:return 

2538 sys1215:return 

2549 return 

2558 restore 2578 
2562 fori=1815 to 
okei,a:next:return 
2578 data 162,8,32,192,184,169 


1065:reada:p 
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<ma> 


<fp> 
<lg> 


<hc> 
<ef> 
<eb> 
<ma> 
<of> 


<pd> 


<ip> 
<ic> 


<cp> 
<ig> 
<nj?> 


<on> 
<on> 
<ab> 
<np> 
<kk> 
<cd> 


<bp> 


<mh> 


<mh> 
<dl> 


<op> 


<mj? 
<fl> 


<oe> 
<kd> 
<bi> 
<id> 


<I> 


<mk > 


BE a eV oırees 


‚2, 1838,4128, 182,9,160,904.734,012 2948 rem bitte punkte durch <ni? 
7.130: 126.1 38,72 ,.152, 22 <jp> 2958 rem blanks ersetzen !t! <ko> 
2580 data.169,0,160,8,32;,97,18 29hB_ rem ===---- nn nn <o]> 
4,162,0,234,232,224,1,208,258, 

184,168,104,172,2009,192 <im> a SS an a Sa Se 
2598 data 255,208 .226;, 232,224, 

4 ,208,219,96 > <od> 

2e&BÜ rem nachspann ====seszseen chh> ; 1 

a an Ferbcodes/’steuercodes amj> NUTZEN SIE DIE 
.2629 ©4$=chr$t BI?) :rn$=sehr$i Bi 

IE +. | KOSTENLOSEN KLEIN- 
26380 he$=chr$( A199): re$=chr$i 2 E 

8) <lo> ANZEIGEN IN DER 

2640 c3$=-chr$t 2029} :gr$=chr$t 93 

2) <kn> COMMODORE-WELT 
2658 bl$=chr$( B3il:bk$echr$t id 

4) <em> ' 
2668 c2$=chr$( 145) :rf$=chrä$l i4 : ! 

2 -- WEATHER 
2678 cl$=chr$( 147) :1b$=chr$tl 15 

4) <coh> 3 : 

ee hab, Seinem Nachbarn, den man zwar lieben soll, 
HEN RUBTOHRET TERTTUI TEN 18 wünscht man manchmal wahrhaftig nichts Gutes. Gut 
7 4 <ok> nur ist, daß Wünsche nicht sogleich erfüllt werden 
26 98 rem zeichensstz/graphik <ji1> und wir von Hagel, Blitz, Donnerschlag und sonstigem 
2708 z2$=chr&$( 163) :z3$=chr$f{ 16 Unwetter verschont bleiben, anders als in diesem 
4) <pk> Computerspiel, welches uns zeigt, was andernfalls ge- 
2718 z7$=chr$( 168) :za$=chr$( 17 schähe. 

1) <b> Im Spiel haben Sie die Möglichkeit, das Haus des 
2720 zce$=chr$t 173) :rd$=chräf 17 Nachbarn mit allen möglichen Unwettern zu zertrüm- 
4) «dc, mern. Doch freuen Sie sich nicht zu früh, Ihr Nach- 
2730 ze$=chr$t 175) :zff=chrä&t 17 bar hat diese Möglichkeit auch. Außerdem gibt es 
6) ; EN noch so etwas wie eine höhere Gerechtigkeit, die in 
TERN ee ae un Form von blinden Naturereignissen dafür sorgt, daß 
e7a0 zes=-chr$l 177).:zh$=chr$t 17 bisweilen Sie oder ihr Nachbar noch zusätzlich eines 
=) ’ f <feg>  draufbekommen. Um das Haus des Nachbarn zu tref- 
2750 zi$=chr$( 179) :zk$=chr&( 18 fen, gelten folgende Regeln: 

1) <pb> — Der Bildschirm entspricht einer Länge von 40 Me- 
2768 z1l$=chr$( 182) :zpf=chr&f 18 tern 

6) <hr> — Blitze werden vom Wind nicht beeinflußt. 

2778 zs$b=chräl 189) :zv$=chr$t 19 — Für sonstige Unwetter müssen Richtung und Stärke 
>) 2E des Windes berücksichtigt werden. 

2788 ym$=chr$( 219) : yoß=chräst( 22 — Es gilt bei Windstille folgende Regel: RER: 
1) nis — Liest das Ziel rechts vom Unwetterherd, so ist die 
2790 rem ###s#0# zeichenfolgen <g x . geschätzte Entfernung als positive Zahl einzugeben, 
28080. Fon get kr 9 = -E i = & liegt es dagegen links, als negative Zahl. 
EEE WERTE — Ist Wind vorhanden, gilt folgende Regel: 
LEE Le $+ceäb:ar$egrs+tcat FOL® — Ostwind < — wird subtrahiert und muß daher bei 
< & ed .gl$=qgl&+telE <ir? der Eingabe addiert werden. 

2838 next q om? — Westwind —> wird addiert, muß daher bei der Ein- 
28480 return <1tı> gabe subtrahiert werden. 

2858 forzx=1tozz:iprintzz$::nex . 

t:return <a Das Spiel ist normalerweise zuende, wenn das Haus 
2860 rem ===-===+=-=-=-=---e--0020n cm,» ° nes Spielers vollkommen zerstört ist und kein Stein 
SH70 rem RINI Eytea men «da; mehr auf dem anderen sitzt. Wie im wirklichen Leben 
SEAG rum DOSE bytes Drasren is kann man den Streit jedoch auch früher begraben, in- 
SB em BRASS Aukes ward aedies ; dem man bei der Auswahl der Waffen “Q” = QUIT 
on Bra ae 2 a: = Te für Beenden des Spieles eingibt. Es folgt darauf die 
=> nem NRyeS bytes arrays <ei? Auswertung, die Aufschluß darüber gibt, wessen Haus 
2918 rem 00637 bytes strings <k j> mehr und wessen Haus weniger zerstört ist. Welch Ge- 
2928 rem B1I087 bvtes fre(®ßN <oh> nugtuung doch für den Sieger, sofern dieser Ausdruck 
29380 rem ====-s===-=-2-=--=-=2=2=-=-==22 Cun> in diesem Falle erlaubt ist. 
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WEATHER ; 


12 rem 
ed 
38 
40 
5» 
68 
?08 
= 17] 
98 
128 
118 
120 


weösther========-==:==016= 


12/86 by 
matthias flor 


basic v3.5 
c16/116/plus4 


rem 
gosub 28982 
trap128 


ifer=38thenresume 


138 sound1,0,8:sound2,®,8 

148 dimf1( 38) ,f2( 38) 

158 vol8 

168 gosub119B:r=8 

178 do 

188 forp=1to2 

198 ifp=1ithenal$="attacker"”:a2 
$=" target ":elsealg=-" 


target 
":82$="attacker" 
288 wo=int(rnd( 1)*31) 
210 gosub191d:rem spielfeld 
220 z1=0:22=8:f=8:for Fl=3715t 
0o3875step48 
2380 forl=Bto5 
240 F=f+1 
250 if filf)=1Ithenpoke fl+1,32 
sz1>zZ1+1 
268 if fF2Cf)=1Ithenpoke Fl+28+1 
‚32:z2=2z22+4 
278 nextl,fl 
288 11=188-int(z1*100/f) :12=18 
B-int(z2axs1a0/F) 


298 ifl1=Borl2=Qthen2968 

3080 ac=int(rnd( 1)*38) +1 

318 ifac=1thenw$="r":g0t0398 
328 ifac=2thenw$="s":90t0398 
338 ifac=3thenw$="h":90t0399 
340 ifac=4thenw$="1":90t0398 
358 ifac=S5thenw$="t":90t0398 
368 print:w$=" " 

378 printlb$c2$na$(p)" select 


weapon (r,3,R.L,&,0):”"5 

3880 inputw$ 

398 ifw$<>"r"andw$<>"h"andw$<> 
"l"andw$<>"t"andw$<>"q"andw$<> 
"s"then378 

400 ifw$="r"thengosubßlß:elsei 
fw$="s"thengosub922 ° 


a1a ifw$="h"thengosubB48 

420 ifw$="l"thengosub868 

438 ifw$="qg"then29608 

448 ifw$="t"thengosub888:print 


he$he$:gosub1139:90t0468 

450 printhe$he$:gosub 1982 

468 char,8,22,chr$( 27) +"t" 

470 ifac<6öthenprint:print:prin 


<gm> 
=p.j? 
SEIL> 
<og> 
<ep> 
<ml> 
<cod> 
<ph> 
<spge> 
<me> 
<ni> 
<cm> 
<ed> 
<jf> 
<kj> 
<gg> 
0 427 
<do> 


<ae> 
<hd> 
<I> 


<kk> 
<go> 
<aj> 


<kk> 


<mm> 
<J;L> 


<kn> 
<im> 
<ja> 
<pc> 
<po> 
<po> 
<an> 


<ca> 


<kn> 


<pj?> 
<hn> 


<go> 


<nh> 
<kp> 
<lp> 
<gl> 


<pl> 
<eo> 
SI 


ttab( 11)c2$rn$fl$" act of natu 
re! "fo$rf$:gosub2642 

488 ifacs6thenprint"weapon is 
"rn$p$rf$:print"charge, is "rn$ 
"BO"rf$:c=9:g0t0538 

498 printcl$c4$"weapon is 
p$rf$ 

588 input"charge ";c$ 

S1® c=vallc$) 

528 printc2$"charge is "rn$c$r 
f$ 

532 ifwr$="<CC"thenew=-ws+tc:el 
seew=ctws 

540 aw=wo+t2:ewsewtaw:ab=4 


"en 


559 se=int((ew-aw) /16) :za=Q 
Ss6Bß ifw$="l"thengosub2729:goto 
688 

570 z=O:fory=4t0o28:aw=aw+se:af 
=® i 

5880 forii=1toab:po=3072+4Q*y+a 
w+tii 


598 ifw$="t"andaf=dthenif( y-3) 
/4=int((y-3)/4)thenab=ab-1:af= 
1 

608 ifpeek(po)>9Qthengosub2519 
"za=zatl 

6198 ifw$="t"thenify=2®thengosu 
b2608:sound3,®,8 

628 poke po,a-1*z:pokepo-1924, 
fa 

638 ifza=4then698 

6408 next:ifaw<loraw+4>38thengo 
sub2489:g0t0688 

652 next 

668 ifac<6then?38 

678 ifac<6then19® 

658 fort=1t019009:next:gosub258 
Q 

698 print:print:print:char, 13 
24,rn$+" press return "+rfg$ 
788 vol3d 

718 sound1,944,5:sound1,953,5 
728 getkeyta$ß:iftaß<>chr$( 13)t 
hen?22: 

738 f=B:for f1=3715t03875step4 
12) 

408 forl=®to5 

758 f=f+1:p1=peek( fl+1) :p2=pee 
kCfl+1+28) i 

768 if p1>4AQdandp1<1B5Sthenfilr) 
=1 
778 
= 
788 
798 
800 
818 
8208 


’ 


if p2>4Bandp2<195thenf2l(f) 


nextl,f1 
ifac<6then198 
nextp:loop 

rem isst regen 


Erz er erg rer 
color4,7,8:color@,7,8:colo 
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WEATHER 


1,7,5:98=47:fa=16*5+6 
838 p$="rain":return 


848 rem Hisieititiet hagel ernten 

ER color4,2,5:color®,2,5:colo 
„era-s8: P$="hail":fası6* 7 

ar 

B68 rem Hk blitz Hersarstsssen 


878 color®,2,3:color4,2,3:colo 
1,8,6:p$="lightining":fa=16*6 

KIRAFTERFERUFN 

888 rem sturm Hesse 

898 Eatard, JR, net lie 

lor1,18,6:3=182:p$="tornado" 

a=16*6+9:return 

908 rem schnee “ıxzzzx% 

918 color4,2:color®,2:color1,2 
‚S:a=42 


Seabst ses 


Eee reger 


928 p$="snow":fa=16*5+1:return 
938 rem #HH#rser haus His 
948 ifns$( 1)=""thennaß( 1) =zu$+ 
ZURET 7° 

958 printtab(h)bk$"..."rn$zun$r 
ir re 

968 printtab(h)re$rn$zB$"...N" 
yq$rf$:color1,2,6 

970 printtabih)rn®" ..:., "za" " 
rf$ 

988 printtab(h)rn$" "left$(na$ 
(1),3)z4$" "rr$ 

998 printtab(h)rn$"...."z4$z0$ 
rf$ 

1000 return 

1818 printtab(h)bk$".."rn$zn$r 
LE Te 

1828 ifna$(2)=""thenns$(2)=" " 


+zu$+zu$ 
1038 printtab(h)re$rn$z8$"M... 
"ya$rf$:color1,2,6 


1848 printtab(h)rn$" "z6$".... 
EEE 

18582 printtab(h)rn$" "z6$left$ 
(mas 2) „3 " 

1868 printtab( h)rn$z1$z6$".... 
"rf$ 

1878 return 

1088 rem HH WAKE BR 
1898 printtab(wo)" "z7$z7$z 58: 
585275952778 2728* " 


1108 printtab(wo) z7$z27$z5$z S$z 
5$25$z25$27$278$ 
1118 printtab( wo)" 
5$25$25$25$27$ 
1128 return 

1138 rem #### tornado razaın 
1148 printtab( 1); :zx=37:zz$=z 
$:gosub 3898:printzz$ 

1158 printtab( 1) :gosub389®8:pri 
ntzz$ 


"27$25$z5$z 


<ok> 
<I> 
<lb> 


<kl> 
<oj> 


<pj> 
<bd> 


<oe> 
<bi> 
<fn> 
<skk> 
<af> 
<db> 
<nh> 
<nn> 
<om> 
<ol> 


<gk> 
<hj> 


<an> 
<id> 
<cd> 
<df> 
<nj> 
<mp> 
<mö> 
“1377 
<mg> 
<sko> 
<ef> 
<pc> 
<am> 
<ag> 


<fg> 


1160 printtab(wo) z7$z27825425$z 
5$25$25$z27$z7$ 

1178 return 

1 188 rem !Hrrrsh anfang En EEE EEE, 


1198 printhe$he$c1l$bk$chr$( 9)c 
hr$( 142) chr$(8):scnclr 
1288 color®,2,3:color4,2,3:n=® 


re 
218 char,®, u 
en h=5 a 


12380. char,1,15,br$:zx=39: 
2$:g0sub329% 

12482 a$( 1)=" "+27$+27$+z 5$+z5$ 
+z5$+27$+z7$+".." 

1258 a$( 2)=27$+29$+z5$+25$+z5$ 
+25$+25$+29$+z278+" " 

1260 a$(3)=" "+27$+z5$+25$+25$ 
+25$+25$+25$+z7$+" " 
1278 n=n+1 

12880 do:ifn=1!thencolor1, 
1418 

1298 geta$:ifa$<>""thenreturn 


zz$=z 


1:goto 


‚1388 c=int(rnd( 1)*16)+1:h=sintfl 
rndl 1)#74) +3: colorti,c,h 

13128 vol5 

1328 r=int(rnd(B) #19) +1 

1338 fors=1tor 

1348 sound3, 688+30*s,5 

1358 next 

1368 fors=rtolstep-1 

1370 sound3, 608+30*s,5 

1388 next 

1398 t=int(rnd( 8) *108) +38 

1408 sound3,688,t 

1418 forx=Bto38stepi:char,x,1, 
rn$+" "+rf$:next 


1428 fory=Bto23stepi 
‚rn$+" "+rf$:next 
1438 forx=38toßstep-1 


"char ,37,y 


KENSR „x ,.2 


2,rn$+" "+rf$:next 

1440 fory=23to®step-1:char,1,y 
‚rn$+" "+rf$:next 

1450 loopuntiln=1:c0olor1,8,6 


1468 char, 15,16," 'westher ’" 


1478 char, 190,18,"(c) 1986 by s 
ys 2001" 

1488 char ,3,28, "music & graphi 
ces by en tlor” sfort=4€6] 
B8088:next 

1498 gosub2339:sound3, 650,422: 
vol23 

1588 colort,2,4:forx=1t0o29 
151Q4 fori=1to3 

1528 ifx>1®thene=1iß:elsee=x 
15308 char1,37-x,i+2,mid$( a$[i) 
1,e) 


1548 nexti:fort=1t010®:nextt,x 
1559 fori=1to2:al 1)=42:a(2)=32 
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<ok> 
<ce> 
<pm> 


<hL> 


<b> 
<ph> 
<fk> 


<je> 
<ijg> 
<bb> 


<kj> 
<cd> 


<il> 
<bm> 


<ki> 
<dd> 
<fl> 
<oe> 
<hn> 
<mn> 
<ih> 
<ıil> 
<ol> 
<af> 
<mm> 


scg> 
<gof> 
<bi> 
<ol> 
<oa> 
<im> 


<po> 


x<dJo> 


<see> 
<lm> 
<gp> 
<eh> 


<a0> 
<ja> 
xmh> 


WERATHERA 


1568 aw=11:fory=6toll:awsaw-1 


1578 forii=1t04:p0=3072+48*y+a 
w+ii 
1588 ifpeek( po) >938thengosub2S1 
8 

1598 poke po,ali):pokepo-1824, 
16*%6+1 


1680 nextii,y,i 
1618 fory=16t028:char ,3,y,"... 


p=pt+1 

solor1,8,6 

f$="what’s the name of th 
e = 
1678 ifp=1thenf$=f$+"first":el 
sef$=f$+"second" _ 

1680 char,3,14+p#2,f$ 

1698 color1,8,6:char,3,1S+p*2, 


"player ?":x=12:vol8:n$="":sou 
nd1,944,5:sound1,953,5 

1788 color1,2,6:print" "z3$z3$ 
23$23$23$z3$ 

1718 do 


1728 getkeyt$ 

1738 ift$=chr$( 13) andn$<>""the 
nexit 

17408 ifx=11andasc(t$) =2ßtheni? 
28 

1758 ifx=1Bandasc(t$) <>2®then! 
728 i 

1768 ifasc(t$)=28then 16982 

1778 ifasc(lt$) <33orasc(t$) >95t 
hen1722 

1788 char,x,15+p*2,t$:x=x+1:n$ 
=n$+t$ 

1798 sound1,3818,38:sound2,811, 
38 j 

1888 foru=1t08:vol8B-u:fort=1to 
4ß:next:next 

1818 loop 

na$({p)=n$ 

ifp<2then1648 
Fory-16to2Q:char,3,y,". .». 


1858 next:color1,8,6 

1868 char, 15,16," "weather ’" 
1878 char,18,18,"(c) 1986 by s 
ys 2001" 

1880 char, 3,20,"music & 
ces by matthias flor" 
1898 g0t01278 

19828 return 

1918 rem spielfeld 
1922 printhe$he$c1l$bk% 


graphi 


EHLKOC emp io ll fa 1 A za 


zme> 


<no> 


<if> 


<k1>° 


<fe> 


<nd> 
<nm> 
<jg> 
< 1 
<fg> 


<ai> 


<cm> 


<ne> 


<fj> 


<lp> 
<jp> 
<ns> 


<fg> 
<im> 


<ep> 
< 31.3 


<pc> 
<nf> 
<po> 


<gd> 
<af> 
<jl1> 
<fp> 


<1lk> 
<n]l> 
<bo> 


<ja> 


<ıIn> 
<lm> 
<ab> 
<ei> 
sog> 


1930: Fer+1:eolord,2 Srcolorf,?2 
‚5 

19348 w=int(rnd( 1)*#2) :ifw=dthen 
wr$="<CC":elsewr$="C6>" 

1950 ws$="" 

1968 ws=int(rnd( 1) #128) :ifws<1 
BOthenws$=" " e 

1978 ws$=ws$+str$(ws) 

1988 printcs2$zfS"TOCCICCccccectE 
ECCCECECCCECCCCECTCCCCECCEE"zZEd$ 

1998 fort=1t02®:print"B....... 


.B"inext 
2088 printrn$".."e1$"....wind 
"WPBEWEEN, a a ee ea 


2eB1®8 char, 15,0,rn$+"round"+str 
$(r)+rf$ 


28028 char,8,16,"":h=3:g0sub938 
:char,31,16,"":h=31:g0osubi®1P: 
printheß$ 

2eB32 gosub1982 

2048 gosub2582 

2058 return 

2B60 rem reiste ende rrieitarun 
2070 printhe$he$re$:color®,2,7 


EOLOFA, 2,7 

2888 char,2,13,na$( 1) :char, 32, 
13,na$( 2) 

2098 print:h=1:ifl1<18thenh=h+ 
1 

2128 Fal1)=16*1:Ffal2)=16*3+5:F 
a[l 3) =16*7+7:fal4)=16*4+6:fal5) 
=16*5+4 


2118 print 

2128 printtab(h)11"% left" 
2138 h=297:ifl2<1ßthenh=h+1 
2148 printtab(h)c2$12"% left" 
2158 char, 14,15,rn$+" game ove 
ei GE 


2168 char, 18,17,gr$ 

2178 ifl1>1l2thenprint"the winn 
er is "na$( 1) :goto2208 

2188 ifl2>1l1thenprint"the winn 
er is "na$(2) :goto2288 

2198 printbk$"bad luck...none 

won!" 

2208 restore2228:volB8 

2218 forgg=1t015:reada,b:sound 
1,a,b:sound2,a+1,b:next 

2220 data685,28,739,190,778,18, 
685,20,739,198,778,18 

2238 data739,30,770,10,810,48, 
739,20,685,10,643,10,685,20,73 
9,20,770,482 

2248 char,14,19,bl$+"again ?(y 
/n)":poke239,® 

2250 pe=2048+15*49+13:po=pe 


„2268 geta$:ifa$ß="y"thenrun 
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2270 
2288 
2290 
2300 
23108 
2328 


forfa=1t05:po=po+1 
poke po,falfa) 
ifpo>pe+t12thenpo=pe 
next 
ifa$<>"n"then2268 
eolor4.15,6:colord,?@rcolo 
A, trpeintheihei:sahelisend 
2330 rem HHrtrin lied 
2348 v=2:restore2412 
2358 fori=1t026 
2368 v=v+1:ifv>äöthenv=ß 
2378 
23880 readx,y,z 
2398 soundi,x,y:sound2,x+1 
ort=-1Itoz:next 
2408 next:return 
2418 dats?778,102, 
8125 155 
100 
2420 data739,15,150,739,15,158 
; 239, 10.,:150-,770,18, 23:50 
2438 data?98,15,150,798,15,158 
‚810, 15,150 
2440 data778,25,300,73®,1 
‚7298,10,150,810,18 
150,864,15,158® 
2458 data854,15,159,834,15,1508 
‚819,10,150,798,18,15® 
2468 data??78,15,158,798,15, 
, 23991557158 
24978 data794,25,6008,0,0,0 
2480 rem *** out of bounds 
24928 printhe$he$tab( 13) rn$"out 
of bounds"rf$ 
2588 vol3:sound! 


volv 


vH 


100,798, 10, 
180,8190,15, 


108 
100,834, 15, 


‚158 
‚150,810,15 


158 


“im 


‚911,50:sBUund2 


‚912,508:return 
2518 rem BER NZ getroffen NEL ARTE 
2528 vol8:sound3,658,78 


2538 forv=-8toßstep-.5 
2540 volv: 
2558 poke po , 42:fort=1toSß:n 


ext:poke po , 178 


2568 next:volß 

2578 return 

2588 rem rss fenster wert 
2598 printhe$left$igd$,22)chr$ 
{EN Errreturn 

268% rem *HHran tornado Fine 
2618 pokepo-2,184:pokepo-1,104 
:pokepo, 182:pohepo+1,1984:pokep 
o+2,184 


2628 Forv=-2t6Ppokepo-1024*v, 


fs:next 

2638 return 

2648 rem act of nat. soünd 
2650 volB 

2668 forgq=1to5 


2678 sound1,7,28:sound?,8,?@ 


<kp> 
<b> 
<ae> 
<ig> 
<eg> 


<jh> 
<ey> 
<pe> 
<pö> 
<gf> 
<hm> 
<cdp> 


<ei? 
<1ld> 
<do> 
<fb> 


<eh> 


e688 sound1,118,28:scaund2, 119, 


28 

2638 sound], eB:sound2, 17@, 
ee 

2788 soundl,262,28:sound?2, 263, 
2% 

2710 next:return 

2728 rem Warme b4stz 


2738 restore2888 
=740 for bi = 4t0208:readbi,b2 
2758 ifbi=14thengosub2828 


2760 po=3Q72+AR*:bi+rbi+aw+? 

2770 pokepo,bZ?:pokepo-1024, fa 

27BB next:gosub?2820 

279B return 

2800 data 8,78,-1,78,-1,97,-1, 

28, 1,97,0,99,1,77 1. 78,80,78,8 
BD, 77 


#27.,0, 7 52 
2812 datal 7.,0,728, 0,28 
2820 rem upro. Blitz 
2838 vol8:sound3, 650,55 
2848 forv=-8toßstep-1:vol v:col 
or@,8:c0olor®,?7,3:fort=1to6®:ne 
RE EV 


’ 
aaa str 
[ichärhern 


285 a return 
2862 data6ß85,20,739,18,778,10, 
685,28,739,128,770,18 


2870 data729,20, 770, 
739,20,685, 10,643, 


12,810,40, 
18,685,20,73 


9,28,778,48 

2888 rem farbceodes/steuercodes 
2898 ce4$=chr$( Bi?) :rn$=chr$(®@1 
8) 

2902 hef=chr$( 819) :re$=chrf&{ dA} 
=) 

e91B gr$=chr$i B39):b1$=chr$( 03 
i) ? 

2928 fl$=chr$( 138) :Fo$=chr&( 13 
2 
2938 bk$&=chr$( 144) :c2$=chrg( 14 
5) 

2948 rf$=chr$( 146) :cl$=chr$( 14 
2) 

eS5B brf=chr$( 149) :1b$=chr$l( 15 
4) 

E9608 rem zeichensatz/graphik 
2978 zB%=chr$( 161) :22$=chr$( 16 
3) 

29389 z3$=chr$( 164) :z4$=chr$( 16 
=) 

E39 zö$=chr$l 166) :z6$=chr$( 16 
7 j) 

32aBU z7$= chr$( 168) : z8$=chr£&i 16 
=) 

3e1RA zdbschrff 174) :zf$=schr&f 17 
f) 

sB2b z14 =chr&l 182) : 2n$- enrt( 18 
4} 
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3039 zu$=chrt 191) :yy$=chr$( 22 

3) : <IC> 
3048 rem Hinsehen zeichenfolgen <gb> 
3858 for q=1 to 48 <.e> 
3868 qd$rgd$+c4$ <gi> 
3078 next gq <nm> 
38882 return <ke> 
3098 forzy=itozx:printzz$; :nex 

t:’return <pf> 
3108 rem ===================== <]i> 
3118 rem 12277 bytes memory <ce> 
3120 rem 88383 bytes program <ha> 
3138 rem 280595 bytes variables <pi> 
3140 rem 09528 bytes arrays <dh> 
3158 rem Q9584 bytes strings <j1> 
3168 rem 82187 bytes fre(®) <nk> 
3178 rem ========-====2===252==== 090» 
3188 rem bitte blanks statt <mk> 
3198 rem punkte in folgenden <bb> 
3288 rem zeilen setzen: <pf> 
3218 rem 959-9970,998, 1810, 1238 <dm> 
3228 rem 1949,1068,1249,1610 <mo> 
3238 rem 18490,1998,2000,2198 <ol> 
3240 rem ===================== <ee> 


ENIACIH 


Eniac, so hieß einer der ersten riesigen Computer, 
der einen gewaltigen Raumbedarf von wohl einigen 
hundert Kubikmetern hatte und dessen Leistungs- 
fähigkeit sich im Vergleich zu heutigen Homecompu- 
tern doch etwas lausig ausnahm. Beim Programm 
“Eniac” geht es um Text codieren und wieder ent- 
schlüsseln. Üben Sie sich im Codeknacken entweder 
allein oder tun Sie es in Form eines Detektiv- oder 
Gesellschaftsspieles zusammen mit anderen. 

Nachdem Sie das Programm gestartet haben, stehen 
Ihnen folgende Punkte zur Auswahl: 

Text Codieren (c) 
Text entschlüsseln (e) 
Eniac spielen (s) 


Wählen Sie den gewünschten Programmpunkt 
durch Drücken der entsprechenden in Klammer dabei- 
stehenden Taste. - 


Text Codieren (c): 

Es leert sich der Bildschirm und Sie werden nach 
einer Codenummer von 1 bis 15 gefragt. Drücken Sie 
RETURN, so wählt der Computer selbst davon einen 
Code aus, geben Sie aber, bevor Sie RETURN drük- 
ken, eine entsprechende Nummer ein, so liegt die 
Wahl ganz bei Ihnen. Darauf können Sie mit der Text- 
eingabe (max. 40 Zeichen, nur Satzzeichen, Buch- 


staben und Zahlen eingeben) beginnen. Auf dem Bild- 
schirm erscheint dabei der fertig codierte Text. Ihre 
Eingabe beschließen Sie wiederum mit einem 
RETURN. Ihr Computer informiert Sie anhand ei- 
ner erscheinenden Zahl nochmals’über den gewählten 
Code und fragt Sie, ob Sie eine Druckerausgabe wün- 
schen. Falls ja, so drücken Sie, wenn der Drucker 
druckbereit ist, die Taste “J”. Nachdem der Ausdruck 
entweder erfolgt oder auch nichterfolgt ist, erscheint 
die Frage, ob zurück zum Hauptmenü oder nicht, wo- 
hin Sie dann durch Bejahung der Frage auch gelan- 
gen. Mit einem Nein, ausgedrückt durch Drücken der 
Taste “N”, beginnt der nächste Durchlauf des Unter- 
programmes “Text codieren”. 


Text entschlüsseln: | 
Hier können Sie einen Text wieder entschlüsseln, 


wenn Sie ‘die Nummer des Codes kennen.: Ansonsten ° 


müssen ‘Sie vielleicht bis zu 15 Möglichkeiten durch- 
probieren. Als erstes ist wiederum die Codenummer 
einzugeben. Danach geben Sie im Unterschied zum 
vorherigen Menüpunkt einen bereits verschlüsselten 
Code ein, der, sofern die Codenummer stimmt, 
entschlüsselt und lesbar daraufhin auf dem Bild- 
schirm erscheint. Wie vorher geht es dann weiter mit 
der Abfrage, ob Druckerausgabe gewünscht wird, und 
ob es dann mit dem Hauptmenü weitergehen soll, 
oder auch ein erneuter Entschlüsselungsversuch erfol- 
gen soll. 


Eniac spielen: 

- Dieses Spiel entspricht dem bekannten Spiel Gal- 
genraten, was fehlt, ist aber der Galgen. Sie können 
einen Text eingeben, sollten den Mitspieler dabei 
jedoch nicht zusehen lassen, welche Tasten Sie hier- 
bei gerade drücken. Der Text erscheint zur Kontrol- 
le auf dem Bildschirm, jedoch wieder verschlüsselt. 
Es liegt nun bei Ihnen, ob der Mitspieler kurz diesen 
Text sehen soll, oder ob er nur, nachdem sie 
RETURN sgdrückt haben, genauso wie bei Galgen- 
raten eine Anzahl von gestrichelten Linien zu Gesicht 
bekommt. Nun kann ihr Mitspieler beginnen, den 
Code zu knacken versuchen. Ist ein eingegebener 
Buchstabe richtig, wird er an die entsprechenden 
Stellen im Text eingesetzt. Außerdem: werden zwei 
Zahlen sichtbar, nämlich die maximale Anzahl der 
erlaubten Versuche und die Anzahl der bisherigen 
Versuche. Diese Zahlen übernehmen die Funktion des 
Galgens, wobei die maximale Anzahl der Versuche 
sich wohl auch nach der Anzahl der unterschiedlichen 
zu erratenden Buchstaben zu richten vermag. Wird 
der Code innerhalb der erlaubten Anzahl .der Versuch 
erraten, so erfolgt die Gratulation durch den Compu- 
ter, wenn nicht, verrät dieser die richtige Lösung. 


P.S.: Wird das Spiel lange gespielt, so kann es sein, 


daß man die Codes nun schon fast auswendig kennt. . 


Um diesem etwas abzuhelfen, gibt es Möglichkeit, ei- 
ne zusätzliche Abänderung der bisherigen Codes zu 
vereinbaren. In Zeile 120 wird standartmäßig der 
Variablen R der Wert 1 zugewiesen. Das können Sie 
aber ändern, indem Sie anstatt 1 einen anderen Wert 
von 2-5 wählen. 
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Id rem eniacr======-=-=-=-=--re==e016 
28 rem (p) 7/87 commodore welt 
38 rem ===, ---=3= -3 ==: === = -2S0-= 
40 rem (ce) 1987 by 

5®2 rem christian niederle, 
690 rem 

78 rem basic v3.5 ° 

82 rem c16/116/plus4 

98 rem ==========-=2======2==2=2= 0 > 
188 gosub 189B:scnclr 

118 dim a$(4AB) :dim b$( 40) 

128 dim kl(480) :r=I:rem #**# rk 
ann werte von ®ß bis 5 annehmen 
138 gosub 918 

148 char1,5,18,"text codieren. 
re ee Ges 

150 char1.,5,18, "text entschlue 
sseln...(e)" 

168 char1,5,28,"eniac spielen. 
naar wre ehe (ES 


178 getkey c$ 

188 on instr("ces",c$)goto2@®, 
392,548 

198 goto 178 

288 scnclr 
218 gosub 
220 


918 
x=B®:print:print:input"eige 


ner code( 1-15 od.nur return)“; 
x 

238 if x>® then goto 258 

ea®ß x=int(ernd( 1)*11)+1 

25® print:print 

268 Tor 3-04 to: 33” 

278 getkey a$li) 

280 if af(li)=chr$( 13) then a=i 


IF R0to 320 


298 t=asc(a$(i)) 

388 B$(li)=chr$(t+x+r):asi 

ste char1,4715,b8L1) 

328 next i 

338 x$=str$(x):char1,10,20,x$ 
348 char1,90,22,"text auf druck 


er( j/n)":getkey s$ 

358 if s$="j" then gosub 978 
368 char1,8,24,"zurueck zum me 
nue( j/n)":getkey s$ 


370 if s$="j" then run 

388 goto 2088 

398 scnelr 

400 gosub 919 

418 print:primtinput”gebe den 


code ein";x 

4280 for i=Q to 39 
438 getkey b$(i) 

448 if b$li)=chr$( 13 
-1213=39:g080-488 

458 t=asc(b$(i)) 

468 a$li)=-chr$(t-x-r) 


then 


s=-i 


<dg> 
<pk> 
<ci> 
<ip> 
<ko> 
<ml> 
<cd> 
<ph> 


<spe> 
enn> 


<soj? 


<ib> 
<k i> 


<1.1> 


<ip> 


<mc> 


<k > 


<me> 
<np> 
1l3a> 
<pi> 


<bh> 
<b> 
<cg> 
<gg> 
<mb> 
<ki> 


<ii> 
<dp> 
<1lp> 
<-> 
<am> 
<pe> 


<fg> 
<hf> 


<nk> 
<og> 
<ji> 
<yp?> 
1 > 


<ho> 
<goh> 
<eji> 


<cab> 
<oäü> 
<ok> 


478 char1,i1,15,a$l(i) 

488 next i 

492 print:print:print"soll tex 
t auf drucker( j/n)":getkey s$ 
saQ if s$="j" then gosub 978 
518 print:print:print"zurueck 
zu menue( j/n)":getkey s$ 


se® if s$="j" thenrun 

538 goto 398 

548 scnclr 

5528 gosub 910 

562 «=int(rnd( 1)*711) +1 

578 rem **# codieren *+# 

582 for i=® to 39 

598 getkey a$li) 

608 if a$li)=chr$( 13) then asi 


:i=39:goto 648 

618 t=asc(lafli)) 

628 b$li)=chr$( t+x+r):asi 
638 char1,i1,18,b$ti) 

640 next i 

658 scnclr 

668 gosub 910 

678 for i=®ß to a-1 

698 chart, T,15,",." 

698 next i 

788 char1,0,24,"ok!":getkey d$ 
:1=1+1:1$=str$(1l) Schari, 15,2 
1$ 

718 poke 65298, 168 

728 ysa+t3:y$=str$iy):chaer1,18 


’ 


24,y$ 

730 for i=® to 3a 

40 gosub 818 

798. Next I 

768 if 1=y then goto 868 

772 if sr=1 then chari,0,28,"g 


ratuliere, du hast den code ge 
kneckt!":vol&ß:sound!,5®8,30 


788 poke 65298, 162 

798 if sr=i then getkey tx$:ru 
n 

808 goto 788 

Eid chöerd ,A 24,7, 

828 if a$(i)=d$ then char!,i,i 


S,d$:kl(i)=klli) +1 

33a if klli)=1 and afli)=d$ th 
en u=u+] 
B40 if usa 
850 return 
860 char1,0,28,"pech 
ichtig heisst es:" 
8708 for i=ß to a 

888 char1,i1,15.a$l ii 
890 next i 

92808 poke 65299, 1Ei:getkev 
run 

910 prinftabtl 4) "VERSUTY.G.UBEI 


then srel:ira 


gehabt! r 


ER: 


38 


<fh> 


= 


UCDE: EI EHBTEE "En" <id> 
922 printtab( 4)"B...BBB...B.:B 


Rn ee ni 
338 printtab( 4) ze$"CC.8BBB8.8."z 

SE CE ZI UT ZEN, Bi... <op> 
948 printtab(4)"B...BB"za$"1I"z 

39° 18: BBBinsx.: 5 Bi;4.B; <em> 
958 printtab( 4) "UCCCKUKYKIK. . J 

RER. EN ERSTE. Erz" .Q" <bl> 
368 return <fb> 
2378 open4,4 <aa> 
982 print#4 <kd> 
398. BRINEHA N at a" <ed> 
1082 for i=Bß to a } <hm> 
10818 if c$="c" then print#4,b$ 

Es : <pk> 
10828 if c#="e" then printf#4,a$ 

[49 <af> 
12838 next <im> 
1848 printf#4 <oa> 
1852 close 4 <pc> 
18568 return <lg> 
12792 rem nachspann =========== <pk> 
1088 rem zeichensatz/graphik * <hce> 
1898 za$=chri( 171) :zg$=chr$( 17 

2) <na> 
1108 zh$=chr$( 178) :zi$=chr$( 17? 

9) <om> 
1118 return <oi> 
1120 rem ========-============= <pe> 
1130 rem 12277 bytes memory <ga> 


1148 rem 902739 bytes program <k1l> 
1150 rem 828042 bytes variables <ch> 


11608 rem 080472 bytes arrays <hb> 
1178 rem Q83380 bytes strings <mm>. 
1158 rem 088694 bytes fre(B) <bp> 
1198 rem ================2=2==== cdk> 
1288 rem bitte in den zeilen <pa> 
1218 rem 810,958-998 und 108398 <ck> 
1228 rem die punkte durch <hg> 
12382 rem blanks ersetzen. <lk> 
1248 rem =====-=-============>=== <gom> 


UNSER 
Z TELEFONSERVICE & 


Alle Experten der CBM REVUE/COMMODO- 
RE-WELT stehen unseren Lesern jeden Miitt- 
woch zwischen 16.30 und 19.30 Uhr zur 
Beantwortung aller Fragen unter der Telefon- 
nummer 089/1298013 zur Verfügung. 
Ebenso der Abo- und Kassettenservice. Ein- 
“fach anrufen! 089/12980 14! 


‚ Tricks 
EEE. 


LISTING 


WALL- 
DESTROYER 


Ein Spiel nach alter Break-Out Manier. 

Zwar existiert schon ein ähnliches Programm, die gra- 
fische Gestaltung ließ dabei doch sehr zu wünschen 
übrig. 

Da ging ich zum DO-IT-YOUR-SELF über, und 
heraus kam dieses Programm. Es ist meiner Meinung 
nach mit einer annehmbareren Grafik versehen, mal 
davon abgesehen, daß ich sozusagen erst halber Profi 
bin. Zuerst erscheint das Titelbild, und es ertönt eine 
kurze Melodie, die sich immer wiederholt, aber zu je- 
der Zeit durch Feuerdrücken (Port 1) unterbrechen 
läßt. Danach sieht man das Spielfeld, auf dem 520 
Mauerstücke sind. Anders als sonst prallt der Ball bei 
diesem Spiel nicht am ersten Stück ab, sondern fliegt 
durch bis zur Wand. Mit rechts-links bewegt man sei- 
nen Reflektionsgegenstand, welcher in der Mitte ge- 
‚troffen werden muß, damit der Ball zurückgeschleu- 
dert wird. Man hat 15 Bälle zur Verfügung, hat man 
400 Stücke abgerissen, kommt ein anderes Bild, und 
es ertönt die Eurovision. Nach diesem oder nach 
Game over kommt die Abfrage, ob man noch einmal 
spielen möchte. 

Besonderheit in der Grafik: Durch eine GOSUB- 
ROUTINE im Hauptteil wird der Effekt erzielt, daß 
es aussieht, als ob man quer über ein Feld aus lauter 
Punkten fliegen würde, während man spielt. (aber 
Softscrollend). 
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18 rem wall destroyer ======]86 
28 rem (p) 6/87 commodore welt 
38 rem ========-=-=-=-===2=-272=2===-#= 
408 rem (c) 5/87 by ingo sabel 
58 rem neuhaeusel 

60 rem 

78 rem basic v 3.5 

82 rem c16/116/plus4 

98 rem =======-=2===-=2 === == === 


188 poke53,8: pokeS55, 8:poke54,5 
&6:poke56,56 

118 color1,2:colord, :eohor4,N 
128 senclr:celr: en Best 
chr$(27)+chr$( 77) 

130 v=65288 
148 poke( v+18) 
1 
158 
r56 
168 


‚peek( v+18)and25 


poke( v+19) ‚,peek( v+19) and3o 
forx=832t0849step+1 
178 reada:pokex,a:nextx 
182 dsta162,0,189,0,208, 
6,189,0,209,157,8,57, 
241,96 

198 sys832 

200 forx=14856t015015step+1 
218 reada:pokex,a:nextx 
220 dataß02,127,265,125, 
5,127,888 
238 data129 
5,255,808 
240 dats009,090,063,042,047,04 
4,244,044 

258 datsaQdQ2, 209,255 
2,292,0008 

2680 data@A98,009,252, 
4,044,044 

270 dataß44,044,044,044,044,04 
4,044,044 

280 data®44,844,044,047,042,06 
3,2090,000 

290 dataB29,200,0009,255, 
5,2020,9808 

308 dataß44,044,044, 
2,200,000 

318 datad62,098,249,249 
5,126,868 

328 data255,92a2 


157,8, 
202,208, 


125.12 


„195,255 ,255,259 28 


‚170,255,08 


172,236,04 


170,25 
336,192 35 
‚249,25 


‚255,000,255,08 


2,255,000 

338 data960,066, 153, 161,161,15 
3,066, 9060 

340 data080,003,030,105,100,03 
2,003,208 

358 data126,147,9273,036, 146,07 
3,165,126 

350 data@@9, 192,956, 150,078,05 
6,192,900 

2378 data002,200,901 


‚022,027,08 


1,0002,200 
330 dats02Q, 108, 
2,090,008 


182, 2419, 1.89, 8 


390 datadu®, 200, 192,104,176,19 
2,2000,088 ER 

480 data128,192,249,248,252,25 
4,255,888 

419 dataQ81,803,215,831,863,12 
7,255,8082 

428 printcl$ 

430. BEEREWREB" a RR RK 
EINER Son 

240 prüintre$t sur KR KR, 
EUR 

458 printwh$"...KK.KK.KKKKK.K. 
SEHEN ug 

450 BrinbBreß" ee RL 
KKK.KKKKK" 

478 print 

488 printwh$" .KKK.KKK.KKK 
KK..KKK.K.K.KKK.KK" 

498 printre$".K. “ KR 
BREKERK ER ER IK. Kr 

588 a K 
EL RT RR 

18- prantereh" KK ak Bee 
SER ER aa a RR" 

520 BEIAERAB" IKRIUKKER .KEK . cK: ; 
K.K.KEK..K..KKK.K.K” 

530 print :sprint :print:print:pr 
int 

548 printbl$"...L by ingo saäbe 
I 1987 

550 „Brint:iprint printzprint 
E68 PrinE” rare "cey$"press fi 
re to continue" 

578 vol8 

582 for»=Bto1?:reada,b 

598 sound!,a ‚b:sound2,8-2,b/ 
2=1.5 

8688 if joy( 1)=128then682 

6128 nextx 


622 data643,50,596,20,8 
6,28 


639. data516,29,383,20,262,20,3 

45,58 

642 data262,50,383,20,453,20,5 
16,20 

650 data5S71,20,596,20,643,20,5 
1,50 


668 datad53,290,169,78 

678 restore62%9:g0t0578 

682 color1i,2:printcl$"CDDDDOHOD 
DDDODDDDDDDUEDDDDBEDDDDDDDDODDDDOD 
BE" 

698 fFori=1to14:print"FAAAAAAAA 
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 
F":next 
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708 fori=1t0?:print"F"bK$"F":n 

ext 

7138 print"F"left$(bk$,17) "TBS" 
left$(bk$,18) 

7280 print"balls 15"left$(bk$.2 

a)"points"left$(bk$,6) 

7380 b=15 a 

748 forsd=12544t012551:pokesd, 

®:nextsd 

7590 forx=7toßstep-i:colori,?2,x 

768 char1,18,15,"press fire to 
start" 

778 sound1,x*1288,1:sound2,x*11 

8,1 

780 ifjoy( 1)=128then888 

798 nextx:g0t07582 

802 color1,2:char1,18,15,1left 

(bk$,21) 

B1I2 x=28:p=3951:bp=391S+int(rn 

d( 28) *35) :a=1:z=12544 

828 ifjoy( 1) =3then858 

838 ifjoy( 1) =7then9B2 

848 goto942 

858 ifx=3thenpokep+tx-1,32 

868 ifx=3thenx=x+1 

878 ifx=38thenx=x-1 

888 pokep+tx-1,32:pokep+x+1,66: 

pokeptx+2,83:pokep+x,8B4 

898 x=x+1:g0t094®8 

9882 ifx=3thenx=x+1 

918 ifx=38thenpokep+tx+1,32 

928 ifx=38thenx=x-1 

938 pokep+tx+1,32:pokep+x-1,66: 

pokep+tx,83:pokep+x-2,84:x=x-1 

948 bp=bp-41:ifpeek(bp)=32then 

988 

958 ifpeek( bp) =65then97® 

968 g0t0998 

978 sound1,980,5:g=g+1:ifg=420 

then227® 

98Q pokebp+t41,32:pokebp,74:gos 

ub1898:g0t0828 

998 ifpeek(bp+2)=32or peek(bp+ 

2)=65then 1812 

12802 g0t01820 

1818 bp=bp+41:g0t01188 

1820 ifpeek(bp+8B)=32or peek(hb 

p+88)=65then1942 

1838 g0ot01852 

1242 bp=bp+41:g0t01728 

1850 bp=bp+41:g0t01428 

10868 ifjoy( 1)=3then 1290 

1870 ifioy( 1)=7then114Q 

10880 g0t0118® 

12898 ifx=3thenpokep+x-1,32 

1188 ifx=3thenx=x+1 

1118 ifx=38thenx=x-1 

1128 pokep+x-1,32:pokep+x+1,66 


:pökeptx+t2,83:pokep+tx,34 


1138 x=x+1:g0t0118@ 

1148 ifx=3thenx=x+1 

1158 ifx=38thenpokep+x+1,32 
1168 ifx=38thenx=x-1 

1178 pokep+x+1;32:pokep+x-1,66 


:pokep+tx,83:pokep+x-2,84:x=x-1 
1188 bp=bp-39:ifpeek( bp) =22the 
n1228 

1198 ifpeek( hp) =65then1218 
12088 goto1238 

1218 sound1,988,5:g=g+1:ifg=48 
Othen2278 

1228 pokebp+39,32:pokebp, 74:go 
sub 1878:g0to1Q68 

1238 ifpeek(bp-2)=320r peek(bp 
-2) =65then 1258 

1248 g0t01269 

12580 bp=bp+t39:g0t08?® 
1268 ifpeek(bp+8ß)=32or 
p+t88j =65then 1288 

1278 g0t01298 

1288 bp=bp+39:g0t01429 
1298 bp=bp+39:g0t01728 
1388 ifjoy( 1)=3then 1338 
1318 ifjoy( 1)=7?then138% 
1328 goto1428 

1338 ifx=3thenpokep+x-1,22 
1348 ifx=3thenx=x+1 

1358 ifx=38thenx=x-1 

1368 pokeptx-1,32:pokep+x+1,66 
:pokep+x+2,83:pokep+x,84 


peek(b 


1378 x=x+1:g0t01428 

1358 ifx=3thenx=x+1 

1398 ifx=38thenpokep+tx+1,32 
1408 ifx=38thenx=x-1 

1418 pokeptx+1,32:pokep+x-1,66 


:pokeptx,83:pokep+x-2,84:x=x-1 
1428 bp=bp+41:ifpeek( bp) =32the 
n1470® 

1430 ifpeek(bp)=65then 1468 
14408 ifpeek(bp)=66then2508 
1458 goto1588 

1468 sound1,980,5:g=g+1:ifg=40 
QOthen22782 

14798 ifbp=3991then1598 

1488 ifbp>3998then192® 

1498 pokebp-41,32:pokebp,74:g0 


sub 1878:20t01388 


42 


1588 ifbp=3991then1598 

1519 ifbp>3992then1922 

1528 ifpeek( bp) =65t len 1468 
1538 ifpeek(bp-88)=32or peek(b 
p-&88) =65then 1558 

1548 g0t0156@ 

1558 bp=-bp-41:80t01188 
1568 ifpeekl bp-2j=32or 
-2) =65then 1588 


peekCbp 


<kb> 
<xdi> 
<ce> 
<ho> 
<hb> 


<em> 


<hk> 
<gc> 
<ad> 


<ai> 
<T1a> 


<le> 
<co> 
<cp> 


<dp> 
<ep> 
<hl> 
<jii> 
<ei> 
<fl> 
<hn> 
<pm> 
<on> 
<da> 


<ijc> 
<cg> 
<bf> 
<gp> 
<gc> 


<dn> 


<gk> 
<fk> 
<gb> 
<po> 


<ad> 
<eno> 
<xod> 


<1j> 
<pm> 
<ab> 
<le> 
<fa> 
<fp> 


<&iN> 


<ag> 


g0t01598 
bp=bp-41:g0t01728 
bp=bp-41:g0t0948 
ifjoy( 1) =3then 1630 
ifjoy( 1)=7then 1688 
g0t01728 
ifx=3thenpokep+tx-1,32 
ifx=3thenx=x+1 
ifx=38thenx=x-1 
pokep+x-1,32:pokep+tx+1,66 
:pokep+x+2,83:pokep+x,84 


1678 x=x+1:g0t01728 

1688 ifx=3thenx=x+1 

1698 ifx=38thenpokep+x+1,32 
17008 ifx=38thenx=x-1 

1718 pokep+tx+1,32:pokep+x-1,66 


:pokep+tx,83:pokeptx-2,84:x=x-1 
1728 bp=bp+39:ifpeek( bp) =32the 
n1778 

1732 ifpeek( bp) =585then17682 
17408 ifpeek(bp) =656then2538 
17582 g0t01798 

1768 sound1,980,5:g=g+1:ifg=48 
Othen2278 

1778 ifbp>3998then 1922 

1788 pokebp-39,32:pokebp, 74:90 
5uB1878:g0t0160®8 

1798 ifbp>3998then 1928 

1808 ifpeek(bp-88)=32or peek(b 
p-88) =#65then1858 

1818 .g0t01838 

1828 bp=bp-39:g0t01422 

1838 ifpeek(bp+2)=32or peek(bp 
+2)=65then 1328 

1848 goto1868 

18582 bp=bp-39:g0t0948 

1868 bp=bp-39:g0t01188 

1878 ifz=12552then 1908 

1888 pokez-1,8:pokez,a:a=a*2:z 
zZ 
1898 
1980 
2551, 
1910 
1928 


return 
z=12544:a=1:pokez,1:pokelI 
a) 

ae=3*2:z=z2+1:g0t01898 
forx=2®to1® 

19380 sound3,1,2 

1948 pokebp-41,77:pokebp-40,78 
:pokebp-39,79 

1958 sound3, 1,2 ; 

1968 pokebp-41,890:pokebp-48,8B1 
:pokebp-39,82 

1970 nextx 

1988 b=b-1 

1998 ifb=-8then2918 

28088 ifb>2®then2148 

2eB18 restore2860 

2920 charı,12,15."g ame 
ep" 
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2038 Forx=Bto? 

2848 reada,b:sound1i,a,b:sound2 
‚a-18,b-1® 

2058 nextx “,. 

2060 data383,20,383,20,383,20, 


262,58 

2070 data345,20,345,20,345,20, 
169,708 

28328 scnclr 

2098 chart, 2,2, "points "-"rcher 


1,10, D7SEr$Eg) 

2188 printhe$gd$ar$"agsin (j/n 
}";:poke239,®:inputaß$ 

2118 ifs$="j"thenrun 

2128 ifa$="n"then2238 

2138 goto21808 

2148 char1,18,15,"you have los 
t one ball" 

2158 fory=dBtoBßß:nexty 

2168 char1,180,15,left$( bk$,22) 
2198 chart,8, 21, T"Fugrge pi 
2180 char1,0,22,"F"+left$(bk$, 
17)+"TBS"+left$lbKk$, 18) +"F" 
2198 char1,90,23,"F"+bk$-+"F" 
2288 char1,80,24,"balls"+left$( 
bk$,23)+"points"+left$(bk$,6) 
2218 char1,6,24,str$(b) :charı, 
35,24,str$(g) 

2228 g0t0o?748 

2238 printc1$c4$c4$0.4$c.3$03$c3 
$"good bye my friend," 

22480 printco4$04$c4$c3$c3$c3$"a 
dios samigo," 

22580 printc4$04$0c4$c.3$c3$c3$"a 
uf wiedersehen !!!" 

2268 printco4$04$04$c3$c3$c3$;g 
‚"treffer":end 

22978 scnclr 

2288 printc4$c4$c4$left$(bk$,1 
TEL ES" EB 

2290 printwh$"K..... Kia a KK 
2300: PrintibBS"Kak Krk AR: & 
2318 printwh$"KKKK.K..K.K:. 
28320: DEINEIBST ER: a rk Re" 
rn$fl$"treffer"rf$;fo$ 

2338 color!i,2:printqd$qd$ 

2348 printre$"super !!!" 

23580 restore24088 

23680 forx=Bto35 

2378 reada,b:sound!,3,b:sound2 
‚„aet4,b/2 

2388 ifjoy( 1)=128then2498 

2398 nextx 
2490 Jdata262, 
516,18 

2418 data5?71, 
SAT AD 

2428 data571, 


15,453,25,453, 15, 
290,453,25,643,40 


’ 


15,596 , 25,643, 1% 


een 1" mn 


WAL_L._ 


DESTRAROYER. 


596,15 

2438 data571,15,596, 
Su Kay NS) 

2448 data453,15, 
516,40 

2450 data262,15, 
S:76:;, 15 

2468 data5”? 
571,582 

2478 data571,20,596,15,643,15, 
3771 , 15 

2480 data596,15,516,40,453,15, 
453,48 

2498 scncelr:g0t0219@ 

25808 ifpeek(bp-1)=66andpeek( bp 
-2) =66then2528 

2518 g0t02638 

2528 g0t01558 

2538 ifpeek(bp+1)=66sndpeek(bp 
+2) =66then255®2 
2548 g0t02568 

2558 g0t01858 

2568 forx=®@toi® 
2578 sound3, 1,2 
2588 pokebp-409,77: 
:pokebp-38,79 

2598 sound3, 1,2 
2608 pokebp-40,8®: 
:pokebp-38,82 

2612 nextx 

2628 goto1982 

2638 forx=Bto1i2 
2648 sound3, 1,2 
2658 pokebp-42,77: 
:pokebp-490,79 

2668 sound3,1,2 
2678 pokebp-42,88®: 
:pokebp-40,82 

2688 nextx 

2698 g0t01988 


516,15, 
453, 


‚20,453,25,643,48, 


SI 
[e1} 


pokebp-39, 


pokebp-39,819 


pokebp-41,78 


pokebp-41,81 


2788 rem nachspann =========== 
2718 rem fsrbcodes/steuercod 
es * 


2728 wh$=chr$( 885) :c4$=chr$( 81 
7) 


2730 rn$=chr$( 818) :he$=chr$( 21 


9) 

2748 re$=chr$( 828) :c3$=chr$( 92 
9) 

2758 bl$=chr$(B31) :Fl$=chr$t( 13 
2) UL 

27680 fFo$=chr$(M32):rf$=chrgt( 14 
6) 

27978 cl$=chr$( 147) :ib$=chr$( 15 
4) 

2788 cy$=chr£( 159) 

2798 rem ####® zeichenfolgen 
2888 bk$=" ":for q=1I to 5 


eB10 gi$=sads+c4$:ar$eyrfrcdh:b 
KBSbKkb+rbk$ 

2820 next. qg:bk$=ebk$+leftglebkf, 
6) 
2838 
2842 
2858 
2860 
28780 
2888 
2898 
2900 
2918 
2922 
2938 
29408 
23958 
2960 


return 
rem wall 
rem 12277 
rem 87264 
rem 88175 
rem B08020 bytes 
rem 80758 bytes strings 
rem 82258 fret 2) 
rem =--=-=-m=2= == 2===22 7 2= = 
rem bitte in den zeilen 
rem 430-568, 2298-2328 

rem blanks statt punkte 
rem setzen. 

rem 


==-==/16 
memory 
program 
variables 
arrays 


destroyer 
bytes 
bytes 


COMMODORE WELT 


MAILBON 


Tel: 089 / 18 39 51 
Parameter 8 N 1 
2 Stunden Online! 
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| | LISTING 


IN 
BERGNOT 


Unvernünftige Möchtegernbergsteiger gefährden 
nicht nur sich, sondern auch das Leben anderer. Mit 
einem Rettungshubschrauber der Bergwacht ver- 
suchen Sie, den in Bergnot Geratenen zu retten und 
riskieren dabei selbst Kopf und Kragen. 

Nach dem Programmstart erfahren Sie, daß der 
Joystick in Port 1 benötigt wird. Nun heißt es etwas 
zu warten und nicht unbeduldig zu werden, denn bis 
der Zeichensatz geladen ist, dauert es etwas. Dafür 
werden Sie dann aber auch mit einer sehr gut gelun- 
genen Grafik belohnt. Nachdem Sie, wie angegeben, 
die Spacetaste gedrückt haben, geht es richtig los. 


Nach dreimaligem Tatütata hetzt ein Mann aus dem 
Sanitätszelt zum bereitstehenden Hubschrauber. Der 
Tank ist gefüllt und es kann losgehen. Nehmen Sie Ih- 
ren Steuerknüppel in die Hand, denn ohne diesen geht 
es nicht. Sie müssen sich nun durch einen engen Fels- 
kamin hindurchzwängen, der nur so breit ist, daß 
Sie gerade noch hindurchkommen. Seien Sie auf der 
Hut, daß Sie nicht irgendwo anstoßen, denn dann ist 
es um Sie geschehen. 

Wenn Sie mit ihrem Hubschrauber über dem wild 
gestikulierenden und um Hilfe rufenden Verletzten 
angekommen sind, so fliegen Sie ruhig so tief herun- 
ter, bis Sie diesen berühren und ein Lautsignal Ihnen 
die erfolgte Bergung anzeigt. Nun heißt es, rechtzeitig 
wieder zurückzufliegen, bevor der Tank leer ist. Wenn 
der Spritvorrat reicht, können Sie nach Bodenkontakt 
direkt mit dem Hubschrauber zum Sanitätszelt, wo 
nach Berührung ein Lautsignal die Übernahme des 
Verletzten anzeigt. Gleichzeitig erhöht sich dabei Ihr 
Punktestand. Ohne jemand geborgen zu haben, dürfen 
Sie allerdings das Sanitätszelt nicht berühren. Bevor 
Sie Ihren nächsten Einsatz fliegen können, heißt es 
noch tanken. Sobald Sie von oben die Tanksäule be- 
rühren, füllt sich der Tank mit 200 Litern und schon 
sehen sie den nächsten Bergsteiger irgendwo zappeln. 
Auf ein Neues, so heißt es nun. 

Nach drei Rettungen erhöht sich die Geschwindig- 
keit des Spieles, nun heißt es noch mehr aufpassen. 
Wieviele Punkte vermögen Sie zu erreichen? 
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rem sos in bergnot ======16 <als> c 


<al> 
28 rem (p) 6/87 commodore welt <pj> 360 datafc,fd,f3,e3,ct,9f;3F,3 
38 rem ========-==2=======-===== 00i> f <ak> 
AB rem (c) 4/87 by werner teck <lco> 378 data10,10,fe,10,10,19,19,1 
S5S® rem wuelfrath <hd> (4) <fm> 
68 rem <ml> 382_data8döQd,fe,ec,c4,ec,fe,88,8 
78 rem version 3.5 4Aßz/ascii <oh> [7] <aj> 
88 rem c16/116/plus4 <ph> 390 data80,890,80,80,860,80,80,8 
98 rem ====-=-=---====-=2==--.=-=2====2= <ge> [7] <ho> 
1008 gosub2599 mis a08 dJdata10,38,54,10,38,54,92,3 
110° sencir : <tg> je) <ii> 
128 poke54,56:poke56,56:poke53 410 data54,92,39,54,92,11,10,1 
‚@:poke55,® <ao> 8 <ik> 
138 color4,3,4:color®,3,4:colo 420 data00,09,78,dc,6c,78,38,0 
a <hp> 8 <mf> 
140 cher1,7,5,"8.0.8. in b 430: dstaff, 36,18, 18, 18;18,; 18,3 
em DE” <pi> (e <ol> 
158 cher1,9,12,"(c) 87 by wer 440 dataß0%,00,00,00,00,18, 18, 
ner teck" <kud> f <ko> 
168 char1,13,29,"joystickport 450 dats18,18,30,18,1e,12,12,1 
a" <ce> 2 <mk> 
170.cChar 1,11, 23,"fuer 81871167 468 data99,58,3c,18,18,24,24,2 
plus4" <je> 4 <og> 
188 data3c,66,6e,6e,60,62,3c,8 2470 details, 18,36,58a,99, Ge, 24,2 
a} <oh> 4a <aa> 
190 dataif,1f,387,38,78,78,77,F 488 dats7f,08,08,9e,f9,f9,1e,2 
Bi <fI> e . sdli> 
280 dataß3,83,07,07,07,07,0#,1\ 498 datsfe,12,18,79,9f,9f,78,4 
7 <enn> 4 <de> 
210 SLR, It. REF, FR, FT, E 582 dataß0,209,00,00,00,00,00,0 
2 <kd> [4] <km> 
228 data®1,01,03,093,07,07,0F,1 510 data?c,66,66,7c,690,60,60,08 
f . <ng> [) <be> 
2:30 :datalT ;03,0F, 1 P53F , 38,77 ,F 528 data66,66,66,40,209,090,00,0 
F <ej> 12) j <of> 
248 dataß7,af,If,I7,17, 37,37, F 38 data66,76,7e,97e,6e,66,66,8 
f s <gh> 11) 2 <ep> 
250 dataff,Frf,FF, FF, Fr, Fr, Ft, F 540 dats66,6c,78,70,78,6c,66,0 
T <bhb> [7] <ee> 
268 dataeßd,fa,f@a,f8,t8,fe,fe,t s50 .datä?re, 18,18,18,18 ,.18,18,8 
Pe <ı]> 7) <dh> 
278 dsta808,80,88,c0,cQ,ed,f&,f 562 datas7e,68,60,78,60,690,7e,0 
a j - N <ef> 7) r <ei> 
280 datsfd,fQ,Ff&a,f8,Ffc,fc,ff,f 570 "datare, 66,66, 76,78,66,66,9 
f <oc> 8 <hd 
290 data80,cQ,ed,ed,fQ,fQ,fc,f 580 data3c,66,66,66,66,66,30,0 
f <ka> 12) <of> 
308 data03,07,07,07,0f,3Ff,3f,f 598 data78,6c,66,65,66,6c,78,® 
FT’ i <hn> u) <hl> 
310 data88,80,c0,c8,ed,ed,fa,f 600 data2c,66,60,60,60,66,3c,® 
8 u %. <ic> & <gh> 
328 dataf8,f8,f0,f9,f8,fc,fc,f 610 data3c,66,698,3c.,06,66,3c,® 
f <pm> 7 ; <ib> 
338 »datafd, fd, fce,fo,fc,fe,ff,;Ff 620 Jdata18,3c,66,7e,66,66,66,8 
= <cm> 08 <jar 
30 SEES FEIN TTS, I 530 data6s;, 77,77,66,63,63,863,8 
f <ae> {2} <jg> 
350 dstasf,If,et,cef,e7,e3,ei,f 649 dJdatakt,66,66,66,66,66,3c,0 
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data3c, 18,18,18,18,18 
data3c,66,6e,76,66,66 
datatß,18, 38,18 
data3c,66,06,8c,30,68 
data3c,66,%6, 
data06,We,1e,66,7+,06 
data7e,69,7c,06,06,66 
data3c,66,60,7c0,66,66 
data7e,66,00, 18,1 


dat’ase ‚66,656 „34,66, 66 


dsasta3c,66,66,3e,96,66, 
data7c ‚66,66 ‚26,66 ‚56, 


dsta3c,66,60,6e,66,66, 


data?e,86,08c, 18,38,68 


data63,77,77f,6b ,63,63 
datnäß, BE ‚Be 
dsta3c,66,86,2c, 
dat8e07,07 
dats8d8,028,20,008,20,%0 
data80,98,084,24,04,98 
data81,91 


‚91,81,94, 


datsa0,00,ff,ff,00,80 


‚18,18, 


10,06,66, 


8,18, 


‚66,66,3e, 


18,008, 


I ET, 


»3C 50 


„ae, 


7e,d 


‚/7e,® 


3c,8 


‚26,8 
RE Ka N 2) 


‚36,4 


| 


32,8 


‚7e,® 


‚63,8 


‚80, # 
‚80.,# 
99,21, 


‚20,08 


fort=14336t014882stepd:f=® 
fori=-®to?7:reada$:a=dec(a$) 
: Freftsipoket+ti1 ,a:mexti 


next 


9088 poke65298, peek( 65298) and25 


1:poke65299, 


918 
928 


14336/256 
senclr 


e0910r7,2, 3reelard 7,5 


r4,7,4: vold 


930 
948 
958 
9608 


BR 
rem 
rem 
print" 


.co9Lg 


IN BERGNOT 


”. 


space 
970 DEADE- Sean aa aaa 
ee ee ce "ıpeke3117 
‚19:poke2093,113 
980 ‚BEENE" DEN Er a ans am 
a I u 
990 print" SIEH:. 254655 ıh 
et SEN. een 
1882 print" egrgbi:. eggm 
ae eRgun. wer, 
TOrA "prant" dere. 2... eggen. 
ee IN a... dep page... ie,‘ 
- 1028 print” .ergregg 2: degrggi 
‚eggm. -ogggggJ--»." 
1838 print"brgrggggak...cgrgggj 
.egren.bggugggak... 
ke print"agrgrgegsk. ‚barerasg 


‚gegerghgagssggask. 
ie Brint? Tgrgrggggagkaggggerg 
ahergggargggggangzaık."” 
1060 print"gorgarggggaqugrgargg 
gegergergsguugggugack" 
1870 print" PRLTLTITITTLITHTT 
ragugggggeraggaggggggea" 
1080 print"gogrggrgggeagqgagggg 
EBELLUTgETEEgALLLggugg" 
1090 print"garggrgggragsggggarg 
LLTSLILELLLLEELIZEEAIE" 
1108 print"grogrgggrgsgggagggaeg 
grggagggggegagaggagge" 
1110 print"ggargggrgggggagaguge 
Teggggguaggagggugggasq" 
1120 print"gergggrggzggagaggag 
ELLZLELLUELBLULLELEgIEE" 
1130 print"greggreggqggaggasggid 
gKegLEgERgıugggLggggaa2" 


17140: PrIiRton$”" „Vo. En, 
vvvv.vv.."wh$"."gr$"ivv.vv..vv. 
.vvv" 


11582 printgr$".w.wv.wv.Ww.Vvwww. 
wwWwww.ww.."wh$"."gr$"ww.wwV.ww. 
www" 

116@ printgr$"v...w.vw.v.w"whß$ 


wvV.v" 


IT90 BIENEN NETER as u 
ar al En Re 


1288 char1,80,22,wh$+".t" 

1219 -char1,0,23,br$+"dKk....... 
FO 9: "+reß+"t."+z1$+"A."+ 
ee EV 


<mb> 


<en> 
<oh> 
<ps> 
<id> 
<co> 
<la> 
<seh> 
<mg> 
<dk> 
<ib> 
<hm> 
Er 
<jk> 
u $ 22 
<kc> 
<kb> 


<kl> 


<1lk> 


<hk> 


<mk> 


<cf> 


on 


=... 0.5 


1228 char1,0,24,br$+"rg 
."+re$+"BC." 
VWEVUWLVVEWLV.W" 

1238 poke4046,38:pcoke3828,58 


+gr$+"wuw 


1248 char1,12,2,wh$+"/A# kur" 
BE ® 

1250 ELITE 

1268 

1270 Deren 
1288 fori=1to1l3:readt,d:sound! 
‚„t,d:nexti 

1290 data369,290,453,2%0,495,20, 
571,28,516,28,453,20,169,20,26 
2,22,345,28 

1300 data596,20,591,20,448,20, 
608,38 

13:0: ohar!;s: 12," "arasen) 75 
HBE Hl ,HE <= arN,  KEH"HFOH+" 
1328 geta$:ifa$<>" "then1328 


1338 
1348 
1358 


gosub2858 
tx=2590:pu=90:gosub1828 
z=27:g0sub161® 


1360 alB)=-B:al 1)=--40:8(5)=40:a 
(7)=-I1:ra[l3)=1 

1378 c(8)=38:c( 1)=3080:c(5)=31:c 
(7)=31:c(3)=38 


1380 b=4946 

1398 pokeb,c 

1488 char1,33,16,wh$:printusin 
gs"AHR";tx 

1410 ifixthenpokeix,z:z=z+1:if 
z=29thenz=29 > 

1428 ifpeek(a+b) =64thentx=2P1: 
sound1,688,28 

1430 ifpeek( b+a] -17andix-@then 
1758 

1448 ifpeek(b+ta) =28thenix=®:po 
keb+ta,32:g0sub18?8:sound1,608, 
22 

1458 ifpeek(a+b)>Bandpeek( a+b) 
<24then 189% 

14608 trap1478 

14728 resumenext 

1488 a=al joy(l 1)):c=c( Joy( 1)) 
1490 tx=tx-1 

1588 iftx<@then 1898 

1518 ifpeek(b+a) <>32then 12398 
1528 sound3, 908,3 

1538 pokeb, 32:b=b+a:pokeb-1924 
‚5@:pokeb,c:3=2 

1540 ifpu<3ßthenforp=1t088: nex 
t 
1558 
1568 
1578 
1588 
1598 


ifpu>38then 15682 
BETA 

rem *# 
rem 
rem 


IN BERGNOT 


<mö> 
<pf> 
<a1l> 
zxoh> 
<bd> 


<pl> 


<hj> 


<H:h> 


<na> 


<1d> 


<hc> 
“3.12 
<ij> 
<ep> 


<eb> 


<ijg> 
<c]> 
< LI? 


<ae> 
<ol> 
<kf> 


<cg> 


<gm> 


<nm> 
<fm> 
<bl> 
<]lh> 
<1.n> 
<he> 
<pd> 


<cg> 
<1lj> 


<ha> 
<ml> 
<hb> 
<cj? 
<ee> 
<mg> 


1608 
1618 


rem : 
ifpus BaeneteTn 


1628 ifpu=18then 1682 

1638 ifpu=2@8then 1698 

1648 ifpu=3@then1678 

1658- ifpu=4@0then 1682 

16628 ifpu=58then 1698 

1678 ifpeek( 3072+10+40*&) =32th 
enix=3Q72+12+4DiB: pokeix-1824, 
113:return 

1588 ifpeek( 3872+27+49*7)=32th 
enix=3072+27+40*7:pokeix-1924, 
113:return 

1698 ifpeek( 3072+38+40*8) =32th 
enix=3072+38+40*8:pokeix-1024, 
113:return 

17088 return 

1718 end 

1728 rem ‘ “ a 
1738 rem Enekket 
1748 rem Krerteaeee 
1758 pokeb,32 

17608 fort=1to3:fori=1t06:sound 
2,500+50*i+50*t,3:nexti,t 

1778 pu=spu+t1®:gosub1828:g0to13 
58 

1788 rem BER IR SPAR SEAR AR SR SE SE SER SE IE ICH 
1792 rem punkte + rekord 
1808 rem “ 

1818 rem # Bere rer 
1828 char1,90,16,wh$+"t., HSYE" :p 
rintpu 

1838 char1,28,16,wh$+"%,#$ " 
1848 return 

1850 rem FHaH 

1868 rem 

18708 rem * 

1888 rem x =; 

1898 sound3,888, 

1922 pokeb,32 

1918 fort=8t08:vol8-t:fori=@to 
3:pokeb+ta, 16+i:pokeb+a-1024,in 
t{rnd( 1) #127) 

192% nexti,t 

1938 forp=1t01589:next 

1948 volB 

1950. color ,2,;7 

1960 schelr:charl,16,5,";,,=6 I 
>& ,‚" 

1978 char1,5,18,"1.4$8%6":print 
pu 

1988 ifpu>158thenchar1,19,18,” 

#6.6' "ESC’)S:printpu 

1998 fori=888t0982step+59: fort 
-I908t052dstep-5® 

2eBoR sound2,i1,5:sound1,t,5:nex 
BEI 

2eBIQ goto131R 
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<dk> 


<fc> 


" 


spielfela 


2058 scnclr 

e0650 color1,2,3 

BO BIERE Dan ana ae ee 
ED a a een er "ırem 408 
x space 

SONO DREI, RR Wesens 
er Be es ":poke311 
7,19:poke2093, 113 

UI DEIWE rer an 
ae Ihres 

21828 print REDE a rer rar en Ih 
En et Se Raten eng 

2118 print MH SIE ME eggm 
BEER RER ER ER 0 

2.120. BEINEN „deregn.).7...% eggen. 
Me IN. II u 

2130 print".cergrggg....dggrgei 
rn eggm. .cggggaj..-." 
“2140 print"brergggak...cgregej 


‚eqggn.bggagggak..." 
2150 print"agrgrgggak.bergrega 
-geggeiggugagggek.." 
2168 print"grgrggggqgkagagggarg 
gh.ggggagagggagggagggk." 
2170 print"ggrggrgggggqggregarag 
E24. FEggggggeggagggggcKk" 
21890 print"groggrgggggggugarggg 
Tg. -PEBBBEEESBgeggunE” 
2190’ print” BBETEETESBELBUSRERE 
ggh..pgergaugggagguge" 
2208 print"ggrggrgggrggsgugerg 
gech..paggggzggggggggqga" 
e21® print"gregroggrggggegyuegg 
SELL. -LRXELgEgaIgRggg 22" 
2220 print"gggrgggrgggggaggugg 
gaggh.pggegsgegguaggagq" 
2230 print"ggrgggreggggugggggg 
ZERLg-. - ggggggggaggıgg" 
2240 print"grgggrggguggggusggg 
geggeh.ggggggggaggege”" 


2250 HBrINLEr® Volk... vn. Man, 
VUNNSUNV. "WARE" "er$"vv.vwv. MV. 
vu" 

2268 printgr$".w.WV.WV.W.Vwww. 
WWWwWw.ww.."wh$"."gr$"ww.wwv.ww. 


www" 


23970 präntgrg'v., ww... wtcht 


N I Erbes 
Gr = 
2289 prünter$"wv.v..WtrhE”. 
Rn (ee er DA "er$"v.wv 
wu.v" 
2298 printwh$".t"aer$".w"whß",. 
Ne SS ed "ar$"w 


<be> 


<ne> 


<ce> 


<hp> 


<bg> 


2318 char1,98,22,wh$+",.t" 

2329 char1,0,23,br$+"Ak....... 

"+re$+r"t."+z1$+"A."+ 
re RE 


2338 char1,8,24,br$+"rg....... 
le Ma he u. "+re$+"BG."+gr$+"wuw 
VW. VW.VV.W. V- w' 

23408 rem BAR SEHR AC AR AL AT SE FAIRE TA 
2358 rem MORE DANN auf 
2368 rem SFR start setzen 
2370 rem EN AR SR SFR SEE IN Peer 
2388 NokRannE, 30: Noke3B22, 58 


2398 
2408 
2418 
2428 
2430 
ound! 
2440 
2458 
24608 
8,3 
24708 
50 
2488 
2498 
2508 
5® 
251% 


FOrp=-1boS0ß: next 
KErerere ern 


Fa rag Ka TEE TER TER 
Dr 


rem 
forn=1to3:sound! 
‚798,28 

next 
forp=1t0o5®@®@:next 
fort=1tol3step1:sound2, 68 


‚598,29:s 


poke49033+t,297:poke3QQ4Y+t, 
forp=1t0o6®:next 
poke4433+t,32 
poke4833+t,29:poke3A29+t, 


forp=1to6@:next 


2528 poke49033+t ,32:next 

2532 poke40946,32 

2542 return 

2550 rem HHrSrarSraRaR ar art ar rar arte 
256® rem =#%# ferbcodes f 
2578 rem & steuercodes * 
D58B0 rem AHrstaratarakäsatafstagakafsratstaren 
2590 wh$=chr$( 885) :re$=chr$( 92 
8) 


2600 gr$=chr$( 038) :fa$ß=chrä$l( 13 
0) 


fb$=chr$( 131) :br$=chr$( 14 


SESRSE Sr SEE IE 
zeichensatz * 
2 ae ” 


rem 
z1$= ehrt 199) 
return 


rem 
rem 
rem 
rem 
rem 
rem 
rem 
rem 


bergnot 
60671 bytes 
08653 bytes 


=116/16/p4 
memory 
program 
variables 
arrays 
strings 
27408 fre (®) 
2758 
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<gl> 


<ii> 


= IN BERGNOT 


2768 rem bitte in den zeilen <ao> 
2778 rem x96B bis 1228 und <om> 
2788 rem 2070 bis 2338 <oe> 
2798 rem spaces statt punkte <kf>:, 
2888 rem eintippen!!t!tttt! <dn> 


Yyariablien 


os Titn 
WONEnN ID 


COMMODORE-WELT 
JEDEN MONAT NEU 


2 LISTING | 


SOUND 16: 


Sound 16 bietet Ihnen die Möglichkeit, Ihre Musik- 
stücke komfortabel zu komponieren. Das Besondere 


dabei ist, die Töne werden in Datazeilen abgelegt und: 


können samt Abspielroutine in eigene Programme 
übernommen werden. 


Funktionsübersicht: 
1. Sound spielen 


Taste: A 
S 


Stimme erniedrigen 

Stimme erhöhen. 

(Stimme 1, 2 oder 3 entspricht 
Soundgenerator 1, 2,3) 


en RN = Einspielen 
Tonlänge erhöhen 
Tonlänge erniedrigen 
Oktave erhöhen _ 
Oktave erniedrigen 
zurück zum Menü 
Lautstärke erhöhen 
Lautstärke erniedrigen ° 


Evi 
11 Ba 1 a | u u | 


2. Sound spielen 
Die vorher von Ihnen eingespielte Melodie wird wie- 
dergegeben. 


3. Sound in Datas ablegen 

Die vorher von Ihnen eingespielte Melodie wird in 
Datazeilen abgelegt. Die Zeilennummer muß min- 
destens 2310 sein. Bei Eingabe von 0 kehren Sie ins 
Menü zurück. 


4. Abspielprogramm erstellen 

Das Abspielprogramm besteht aus einem Einlesepro- 
gramm und den Melodiedatazeilen. Vorsicht! Denn 
durch die Erstellung wird Sound 16 gelöscht. Das Ab- 
spielprogramm kann dann sofort in eigenen Program- 
men verwendet werden. 


5. Töne löschen 
Falls Ihnen Ihre Melodie nicht gefällt, können Sie die- 
se durch die Wahl dieses Menüpunktes löschen. 


6. Ende 

Vorsicht ist bei Anwahl dieses Menüpunktes geboten, 
da das Programm durch einen Reset gelöscht wird. 
Rettend kann da manchmal die Sicherheitsabfrage 
sein. 


Und nun viel Spaß beim 
Probieren 
Komponieren 
Musizieren 


Ihr Michael Inden 


PS. Pausen werden durch Drücken der ‘“O”-Taste im 
Soundspiel.gemacht. 


rem- saUnd Is sresseTrster 
rem (p) 6/87 commodore welt 
= rem 77-7 er DesenrerrFece 
48 rem (.c) -5/87 by 
5Q rem michael inden 
6B rem 
78 rem basic v 3.5 
a8 rem c16/116/plus4 
98 rem =======-=====2=202==22==20- 
128 rem sie muessen das pro- 
112 rem gramm vor dem ersten 
128 rem 'run’ abgespeichert 
138 rem haben, da es sich 
148 rem selbststaendig loescht 
150 rem ===============2=2=2===== 
162 clr:pore239,8:gosub 1878 
172 dimt%( 14,5) :forj=1t05:fora 
=1tol4:readt%(a,j) :'nexta,j 
188 dimz$( 14) :fors=1told:readz 
$(s) :nexts j 
199 fFort=1toeß:keyt, ""inextt 


288 sn=1:dimc%( 111) ,td( 111) ,vo 
162) j 

248 scnaälr:colord, 1:c0Lor1,3,4 
color4,15,3:v=8:volv:o=1:1=1® 
:k=®d 

228 print 

2a Brink"... nt ya 
rf$ | 
248 print"”...N..."yq$rn$".,."rf 
$ 

250 print". .N....054 "rn$" re 
Dr ee Br PR an er "pn 
n$z8$" ng 

2680 print" N "rn$z8$rf$zm$zm$z 
ER Se BA SS Re ER 
ee "z3sarne ne 

290: BFINE"N FPn$z38N "rt" a. 
rare ee a ee ae re le er a 
SErMSE pipe % 

280: printz3jß" "ans". VasnrE” 
zısrng" "ERS" 

298 print23$" "rn$"”..."vasrFfP" 
ee "rn$z8$" a" yußrfS" ” 
rn$z8$" "rf$" "rn$z8$; 

389 Bram RES! PrnzBht eng 
USTT$" .:"rn$z8P" "rF$Zjnng"" 
rf$ ö 

370 BEIHE"M "ugsrhB" .n. nr "yg3 
PERT .Naee VIREDSE SPES Nzr 
EINS", rt MZIEongr,®; 

328, PEINERFR"T "238: VasenE 
TERBM INGE Ese> tert 

330 BrAnNE” M TyaRenS$". 2... "vg 
$rf$"..."zI$rn$z8ßrf$zm$"M "rn 
5" Seth" "zisrn$"- "rt, 

348 Brime" VZISTNE" per 
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<xap?> 
<pj> 
<ci> 
1-9 
<sct> 
<ml> 
<cd> 
<ph> 
<ge> 
<ok> 
<ap> 
<a83> 
<np> 
se 3? 
<gd> 
<jo> 


<bo> 
<fk> 
<f}> 
<]lf> 
<ba> 
<hf> 
<hl> 


IM? 
<ap?> 
<pm> 
<ai> 
<fc> 


<ep> 


SOUND MACHINE 


rn$" "rf$"M a a a Ba od a a "zi$rn 
$z8$rf$zm$z i$rn$" "rt" " 

3S5D print" ...M... "yaßrn$". ..Ny 
Mer 


asgrt$". ."ZIErn$" "va$rfE" 

rang” "rR$t ?z4tens" Yygbrt$: 
368 printzj$rn$" "rf$" "zjsrn$ 
" "RES" "2I$rAR" "gr "zi$rn$ 


" NVESEPLBZISErNS 187 © 
378 print"...M"ze$ze$ze$" "yy$ 
rn$"..." yasrf$" "zißygbrn®" "r 
r$zZ8$" "z8$”, "zI$ygsrng" "; 
380 printerf$zjßrnig" "EI" "238% 
end. ot "z16r007 "Er. "Zi 
yaprnp“ "rtszjsreng" "rt" " 
SIWEBRINE"T M "yqSrn®"... 
"rf$" M"ze$ze$ze$"N..M"ze$ze$z 
edz8f" LNZOE" L"ZBS" M": 
4080 printze$ze$ze$zäg" " 
10 BEINE Hr RG M '"vgasrn$",. 
RER 
200 DRIRE". a... "298". 
"rf$z8$ 
ASOH BLINE" re NEID EE 
ee gene Ds ERHBEBRT regt. "nn 
BZBE". ."yaErF$ 
240 BEINE "ERDE": 
ON ee ee N "rn$" 
N.."yq$z8$ 


Mrz 
a ae 


Mia NN” zj8en® "ers 
z93$" "rn$z8$rf$zm$zm$ 
460..BrIMES N. oa DER Se are 
rzms.. "zisrns" "rfgz9$? "rnS* 
ae ZETB 
470 BEIMEUNE SE N 
Sa ZISBENR. "ERERZISR" „nn 
"rf$ 
488 printzm$zm$zm$zm$zm$zm$zm$ 
kn RR NE ORRERNERE "2318rn8» "nf 
29$"” "rn$" "rt$"P "rn$" "rt 
490 BEINE" Se: (c) 1986 by 
a ZILIENE" "rEizIit  yagza" 
"z8$ , 
Ss00. BTERE anne michael inde 
n..L"z8$" M"ze$ze$"N" 


518 vol2:sound3,860,2:vol&:sou 
nd3,8608,8:v016:sound3,868,2®:v 
ol1l:sound3,8698,2:vol® 


529 fort=1to1@®:next 

530: BEINGELBCAFEILNT: Dessen U 
EESBEECBLEEEL"* 

SA8. Bprint”....7".2..B :- menue 
- et 

550. BRimET. 2 Seal JEGEGEEGEE 
ECK" 


56®B printc4$c4$cAE" 
f$" sound spielen" 
5728 printcd4$" 


"rn$"-1-"r 


enger rt so 


<eäöä> 


<kk> 


<af> 


<enp? 


<je> 


<bi> 


<se0o> 


840 DILHE" on re art 
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en 


—ıD — 
“und Koeren" <jc> 
58% prints4$" "rn$"-3-"rft"iso 
und in dataes ablegen" <mo> 
598 printo4$" "rn$"-4-"rf$" ab 
spielprogramm erstellen" <hb> 
E08. Branted$" "riss" € 
ene loeschen" <df> 
618 printce4$" "rn$"-6-"rf$" en 
de" <ja> 
BEL. BrIMESASCRN" „a: - BE 
te waehlen sie -" <ng> 
5830, BIERTESAR Se ea a ra en "rn$ 
Di. Ze 5: <fm> 
648 poke239,8:getkeyat$:at=val 
(at$) <pa> 
650 onatgoto1348,1190,1450,173 
D,1420,1258 <mo> 
668 rem sound spielen <lo> 
678 g0oto1348 <pb> 
688 data169,262,345,383,453,51 
6,571,596,220,300,428,483,543, 
(4) <ig> 
630 data596,643,685,7904,739,77 
0,798,810,620,664,725,754,784, 
& <ln> 
708 data818,834,854,864,881,89 
7,911,917,822,844,872,889,904, 
[%) <na> 
718 data917,929,939,944,953,96 
0,967,970,923,934,948,956,963, 
2 ) <pb> 
720 data970,977,982,984,988,99 
2,996,997,973,979,986,990,994, 
2a &oj> 
738 rem tastatur <od> 
740 SeweLr3primerarste 
er ee "c4$"stimme:"; sn <pj> 
758 printc2$c4$80A$cA$"... >. Er; 
Dir Feen <em> 
FE0 DRINE" 5. ee ee ER Me 
.” <ce> 
PRO BEIDEN 05 au e S..8 
S” <gb> 
EU TORE ar ame re rer ters 
ER "rn$"menue: ’esc”"rf$ Sr 
732. BrInt ah Zt, ZT, B 
OD u ZARN. SUTZBRT BB <an> 
BAU BTEINE" ..B.. !z5ßr, "EST .B 
MET tz" N ZT... SB Vo 
Lens, „er <jd> 
BEOSBPAHE" Br ZEN IE. 2 
E25 NZ 5", B. „Er <cb> 
82%: DEINER ee. 
Bar Ba, <cc> 
332- print", Pacht GE" zer 
"EEE TOTEEF EEE DER" 
C"ze$"CC"zs$ <1p> 


SOUND MACHINE 


x " 


RE En 

3580 printc4$c4$" tonlaenge:";1 
ER a RE 2 A “ 

86B printcd4$c4$" a=q d=w e=e 
a a a ee a 

878 printo4$c4$" cis=2 dis=?2 f 


13565 BIE=6 SIS=7,,.,. 25% { 
558 getkeya$ 

890 qgq$="qwertyui23567":a=inst 
r(qq$,a$) 

9828 ifa$="A"thenv=B:a=14 

912 ifa$ß="+"thenifl<99thenl=!l+r 
1:g80t01292 


928 ifa$="-"thenifl>1Ithenl=l-1 
:20t01898 

338 ifs$=">"thenifo<Stheno=ot+1 
:g0oto1128 

948 ifa$="<"thenifo>itheno=o-1 
:g0t01128 

958 ifa$=","thenifvsöthenv=ev+l 
:g0to1158 

968 ifa$="."thenifv>ithenvsev-1 
:g0t601158 


970 ifa$=chr$( 27)thengoto539 
982 forz=-1t0o14 
999 ifa$<>z$(z)thengoto12ßd:el 


segoto1038 

1888 next 

1818 g0t0888 

1828 rem 

10838 ‚volv:soundsn ,t% a,0) ‚I 
1842 c%LkK)=t% a,0) :td(lk)=1:vol 
kJsv:k=k+1l:ifk>11@thengoto1198 
19858 ifa=14thenv=6:980t01158 
1260 g0t0338 

1970. deteag, we, ts Ey, 23 
A| 

10880 rem laenge 


10898 1$=str$( int(1*128+.5) 7/1008 
}:C5har1yt1,Te," . @ehart, Ti.,i 
8,58 

11080 goto8&88 

1118 rem oktave 

1128 0o$=str$(o0) :char1,29,16," 
":char1,29,16,0% 

1138 goto88B2 

1148 rem lautstaerke 

1152 v$=str$(lv)-char1,32,9,” " 
Schar! ,.32;, 9.58 

11698 goto88% 

1170 rem sound wiedergeben 
1188 : 

ifk=-2thengoto123® 
printcel$tleftglgd$, 11]"... 
ek =: soundwiedergabe **" 
NelO, DREIDE N. ara NNNNNNNNNNN 
. NNNNNNNNNN" 

1228 forso=Btok-1:volvo(so):so 


<mf> 


<hj> 
<ld> 


<og> 
<jh> 
<em> 


<lb> 
<L#*> 
<mp> 
<nk> 
<fi> 


<be> 


<pb> 


unJsn,c%( so) ,‚td( so) :next 

1238 g0t053®0 

248 rem ende 

1258 printcl$c4$c4$c3$63$" das 
programm ist nun beendet" 
1268 printco4$c4$c4$" "rn$"woll 

en sie weiter machen ?"rf$ 
1278 printce4$" "rn$"achtung be 


i eingabe von "fF1$"n"fo$" ioes 
ent Sieh: " 
1280 printc4$" "rn$"das progra 


nm von selbst"rf$" I1t" 


1298 printco4$c4$" 


"nsinputd® 

13a@ ifd$="j"thenrun 

1318 ifd$="n"thensys65526 
1328 end 

13238 rem stimme 


printcl$c4$"..-- stimmenw 

ahl --" 

13582 printhe$left$(gd$,4)" 
"rn$" stimme: "rf$;Tn;"La/st" 
1368 getst$ 

1378 ifst$="a"thenifsn<säthensn 

=sn+t1:g0t01348 

1388 ifst$="s"thenifsn>ithensn 

=sn-1:g0t01348 

1398 ifst$=chr$( 13)thengoto68% 
14008 g0t01368 

1418 rem toene loeschen 

1428 forf=dtok-1:c%l f})=B:tdlf) 

=B:vo(f)=B:next 

14382 k=98:g0t0530 


1448 rem sounddatas ausgeben 


1458 printcl$c4$".."rn$"-sound 
in datszeilen ablegen-"rf$c4$ 

c4$c4$ 

1460 printc4$" "rn$" BD = "back 
to menue’ "rf$c4$ 

1478 input"ab welcher zeilennu 


mmer (>=2318)";zn 

14808 ifzn=®dthengoto532 

1498 ifzn<2318thenprintc?$c2B$: 
g0oto147d:elsegoto1588 

1582 printchr$(27)chr$( 76) 
1518 printcl$; 

1528 i=2:forjj=1to11 

1538 printright$(str$(zn) ,len( 
str$( zn))-1)"data”; 

1548 forii=1t09 

1550 z$=right$(str$(c%(i)),len 
(str$lc%i)))-1) 

1568 tdli)=int(td(i)*19+.5)/19 
1578 z1$=right$(str$(ltd(i)),le 
ntstr$(ltd(li)))}-1) 

1580, BrEnt 287,218; "ee 
1598 nextii 

1608 z$=right$( str$(c%li)), len 
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(str$lc%l i)))-1) 

1618 td(i)=intltd(.i)*18+.5) /10 
1620 z1$=right$(str$(td(li)),le 
n(str$(td(li)))-1) 

1638 printz$", "zi$:i=i+l 

1648 zn=zn+t1iß:nextjj 

1658 print"goto 11” 

1668 poke239,8:poke1319,1%9 
1678 fortp=1328t01332:poketp,! 
3:next:poke239,14 

1688 printc2$c2$:end 

1698 rem 

1708 

1718 printchr$( 147) :char1,0,7, 
"datss abgespeichert":foru=1to 
Sß:next:run 

1728 rem abspielprogramm erste 
llen 

1738 printcl$c4$c4$c4$" "rn$"a 
bspielprogrammerstellung"rf$ 
17480 printc4$c4$" wollen sie n 
och einmal eine stimme " 

1758 print" einspielen..[ ji / 
n MITA 

1768 poke239,8 

1770 getkeyat$ 

1788 ifat$<>"n"thengoto530 
1798 printc4$c4$c4$" das abspi 
elprogramm wird nun erstellt " 
1809 eülere IScolont, 

1818 printcl$"delete-2148" 
1828 poke1319,19:poke1328,1%:p 
oke239,2 

1830@0 color@®,>2 

18480 end 

1858 rem nachspann 
1868 rem farbcodes/steuercodes 


1870 e4$=chr$( 817) :rn$=chr$( 81 
ne he$=chr$( 819) :c3$=chr$( 82 
9: 

1890 rl$=chr$( 130) :Fo$=chr$( 13 
on BOs-chrsl 149] :FFS=Ehrät 14 
4) 

1910 el$=chr$( 147) 

1928 rem zeichensatz/graphik 
1938 z5$=chr$( 166) :zB$=chrä$( 16 
in z9$=chr&$( 1780) :zce$=chr$( 17 
1950 Ge een 
Sen zit=chr${ 186) :zm$=chr$( 18 


1998 zs$=chr$( 189) :yq$=chrä$( 22 


zeichenfolgen 


enk> 
<je> 


<hp> 
<pd> 
<ml> 
<fh> 


<ce1> 


<fh> 
<h]> 
<cp> 
<oe> 


<bk> 
<ga> 
<fh> 
<of> 
<po> 
<hh> 
<ed> 
<pm> 
<if> 
<dc> 
<fas> 
<bc> 
<kc> 
<1h2 
<aj? 
emi.> 


<ld> 


<kn> 


1998 for a=1 to 4% 

2009 qd$=qd4$+c4$ 

2@18 next q 

2028 return 

eB38 rem =====-=-- ===, - = er 
2048 rem 12277 bytes memory 
2858 rem 89862 bytes program 
2eB68 rem QB218 bytes variables 
2872 rem B1686 bytes arrays 
2eB88 rem BB663 bytes strings 
2898 rem 92948 bytes fre(®) 
e1B8 rem ====-=--=-er rn. 2 -..-- 
2118 rem bitte im programm 
2128 rem blanks statt punkte 
2ei3@8 rem setzen !!! 

2140 rem ========H=22=2===0ee nenne 
2158 rem datalese- und abspiel 
programm 

21368 clr:dimc%( 112,3) ,td( 118,3 


} 

2178 input"lautstaserke $ 
en"; 1l,sm 

2180 ifl>8thenl=8 

2198 iflsIithenl=l 

e2BB ifsm>3thensm=3 

2219 ifsm<ithensm=i 

2228 voll 

2238 forj=itosm:fori=®to12%:re 
ade 1,7) ,tdl 2, 1) Znextiy,j 

2248 foru=B8to189 

2258 iftdlu,1)>Bthensound!,c% 
5.19 2a. 

2268 iftd(lu,2)>@thensound?2, c%( 
U, ; DAL US-2) 

2270 iftd( u,3)>Bthensound3, c% 
U) EAU; 3) 

22880 next 

2298 end 


stimm 


2308 


Seas Bergen 
EINER FÜR 
ALLE: 


BEER ENUES 


Wo gibt es das, daß ein 

und derselbe Checksum- 
mer auf derart verschie- 
denen Rechnern läuft? 
Ein solches Programm, so 
meint man, müßte be- 
stimmt ziemlich lang 
sein, so daß man viel Ar- 
beit mit dem Abtippen 
hat. Außerdem müßte 
man vorher dem Pro- 
gramm bestimmt noch 
irgendwie sagen, welchen 


Rechner es gerade vor 
sich hat. Nichts von alle- 
dem. Die Kürze unseres 
Listings sucht seinesglei- 
chen und Sie brauchen 
wirklich nur das Pro- 
gramm zu laden und zu 
starten. Zudem hat es 
noch einige Vorzüge, die 
Sie woanders vergeblich 
suchen dürften. 


Ein Checksummer tat 
schon lange not. Viele 


© Conmwendore 


Anrufe unserer Leser er- 
reichten uns, die uns ihr 
Leid klagten, daß sie die- 
se und jene Programme 
nicht zum Laufen brin- 
gem könnten. Wir bemüh- 
ten uns zu helfen, indem 
wir Tips zur Fehlersuche 
gaben, doch oft waren 
auch wir ratlos. Es mußte 
einfach eine Lösung ge- 
funden werden. Sie hieß, 
ein Checksummer mußte 
her. Und zwar einer für 
den C64, einer für den 


55 


Die 16er-Serie wird sogar bei 
Volkshochschulen eingesetzt! 
Unser Foto zeigt Commodo- 
re-Boss Winfried Hoffmann, 
links, bei der Übergabe von 
fünf derartiger Modelle an 
den Leiter der Volkshoch- 
schule Oberursel, Dr. Otto 
Rüb (rechts). 


C128 und einer für die 
sogenannten Kleinen. 
Nachdem unsere Redak- 
tionen ausreichend Ver- 
stärkung bekommen hat- 


ten, war es endlich auch 
möglich, die für ein sol- 
ches Unterfangen nötige 
Zeit zu erübrigen — es 


war schließlich mit dem 


Checksummer nicht ge- 
tan, denn zum Listing- 
ausdruck ist auch ein 
Checklister von Nöten, 
den wir — Sie sehen es an 
unseren Programmlistings 
— nun ebenfalls haben. 
Sehr zugute kam uns vor 
allen Dingen, daß wir nun 
für jeden Rechner jeman- 


« 
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den ständig in der Redak- 
tion haben, der auf die- 
sem ‘zuhause’ ist und daß 
es prima mit der Zusam- 
menarbeit klappt. Als Er- 
gebnis davon beginnen 
bereits unsere Computer 
sich bestens miteinander 
zu verstehen und die sel- 
ben Programme zu verar- 
beiten, wie bereits unser 
Checksummer zeigt, und 
was künftig bestimmt 
noch deutlicher werden 
wird. 


VIELE ROUTINEN 
GEMEINSAM, LEDIG- 
LICH ANDERE 
ADRESSEN 


Doch nun einmal zur 
Sache, wie kann ein und 
dasselbe Programm . ei- 
sgentlich auf mehreren 
Rechnern laufen? Ganz 
einfach, indem es weiß, 
auf welchem Rechner es 
zur Zeit liegt, und wie es 
speziell auf diesem Rech- 
ner zu arbeiten hat. Dazu 
ist es nicht nötig, daß das 


Programm den Benutzer - 


erst fragen muß, denn die 
Rechner besitzen viele 
Speicherstellen, in denen 
je nach Rechner Unter- 
schiedliches steht. Wir 
fragten einfach die Spei- 
cherstelle 772 . (80304) 
ab, in der normalerweise 
beim C16/116/Plus 4 der 
Wert 86 (856) steht, wäh- 
rend der C64 mit dem 
Wert 124 ($87C) aufwar- 
tet. Zwar unterscheiden 
sich die Commodorerech- 
ner in vielen Dingen, je- 
doch haben sie sehr viele 
Routinen gemeinsam, die 
lediglich in einem ande- 
ren Adressbereich unter- 
gebracht sind. Mänche 
Routinen allerdings 
zeichnen sich auch durch 
kleine Unterschiede aus, 
die dem Programmierer 
Kopfzerbrechen bereiten 
können. Nachdem unser 
Checksummer auf dem 


C16 und dem C128 lief 
und wir ihn auch anden 
C64 angepaßt zu haben 
glaubten, lieferte er uns 
dort aber eine andere 
Checksumme. Später er- 
gab es sich aber, daß ge- 
rade diese die Richtige 
war und beim C128 und 
C16 die Bytes, die im 


Tastaturpuffer lagen, 
nicht einfach addiert 
werden durften. Nach- 


dem ein Verfahren gefun- 


den war, das für alle 
Rechner dieselben Werte 
lieferte, wurde eine Form 
gesucht, die für alle Rech- 
ner brauchbar war und 
wobei lediglich nur mehr 
einige Bytes bei der 
Rechneranpassung ausge- 
tauscht werden mußten. 


LADEN VON KASSET- 
TE, KÜRZELEINGABE, 
RECHNER BLEIBT 
VOLL FUNKTIONS- 
FÄHIG 


Nachdem unser Check- 
summer mit RUN gestar- 
tet ist und sich installiert 
hat, was er aber nur 
durch ein _ schlichtes 
‘ready’ anzeigt, sitzt er 


ziemlich nachhaltig im 
Rechner und läßt sich 
fast nur mehr durch ein 
RESET oder durch Aus- 
schalten vertreiben. Je- 
desmal, wenn die RE- 
TURN-Taste betätigt 
wird, erscheint invers am 
linken oberen Bildrand 
eine Buchstabenkombi- 
nation, die mit der im 
Listingausdruck am Zei- 
lenende zwischen dem 
Kleiner- und Größerzei- 


Auf unserem Titelbild haben 
Sie es schon gesehen: Wir 
werden auf der Systems mit 
einem Stand vertreten sein. 
Und sollten Sie nicht nach 
München kommen, im näch- 
sten Jahr finden Sie uns auch 
auf der CeBit in Hannover. 


chen befindlichen über- 
einstimmen sollte. Lesen 
Sie hierüber unbedingt 
den Artikel “Eingabehin- 
weise’, in welchem dieses 
sorgfältigst behandelt ist. 
Ob sie ein Fragezeichen 
für PRINT benutzen, ob 
sie sonstige Eingabekürzel 
verwenden, oder ob Sie 
ein paar Leerzeichen we- 
niger oder. mehr verwen- 
den, dem Checksummer 
macht dieses gar nichts 
aus, davon völlig unbe- 
eindruckt liefert er die 
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richtige Summe. Ob Sie 
von der Diskette oder — 
Kassette laden oder auch 
speichern, den Check- 
summer läßt dies kalt, 
er wird dadurch ganz be- 
stimmt nicht überschrie- 
ben. Auch wenn Sie ein 
paar Programme einmal 
laufen lassen, der Check- 
summer sollte in den 


meisten Fällen noch ge- 
nauso funktionieren wie 
am Anfang. Er sitzt näm- 


lich weder im Kassetten- 
puffer, noch im Basic- 
speicher, sondern an 
einer Stelle, die den mei- 
sten Programmierern et- 
was suspekt vorkommen 
mag, die daher wohl nur 
ganz selten für andere 
Dinge verwendet "wird 
und wo man noch erwar- 
ten darf, daß nicht jedes 
neugeladene Maschinen- 
programm gleich wieder 
den Checksummer über- 
schreibt, nämlich im 
Stackbereich — bitte nun 
nicht alle gleich im Stack- 
bereich herumpoken, be- 
wahrt Euch ein Reservat 
für Utilityprogramme. 
Der Checksummer ist 
kein extra Eingabepro- 
gramm, sondern alles 
funktioniert wie vorher, 
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wie gesagt, ist der einzige 
Unterschied wirklich nur 
die Darstellung der Check- 
summe bei einer Zeilen- 
eingabe. 


VERBOGENE 
TOKENISIERUNG 


Wie dieses möglich ist? 
Ganz einfach: Unsere 
Commodore - Computer 


besitzen sogenannte 
Sprungvektoren im Spei- 
cherbereich 768 (50300) 
bis etwa 816 ($0330) mit 
kleinen . Unterschieden. 
Wenn nun eine Zeile ein- 
gegeben wird, so findet, 
wie Sie wahrscheinlich 
wissen, erst einmal eine 
Umwandlung, die soge- 
nannte Tokenisierung, 
statt, wobei Basicanwei- 
sungen, die als Buchsta- 
benkombination eingege- 
ben wurden, durch zu- 
meist einen einzigen Zah- 
lenwert ersetzt werden, 
der zwischen 128 und 
255 liegt. Der Computer 
springt die Tokenisie- 
rungsroutine nun nicht 
direkt an, sondern über 
den Sprungvektor in den 
aufeinanderfolgenden 


Speicherstellen 772 und 
773 (0304 und $0305). 
Wenn man an diese Stel- 
len eine andere Adresse, 
in unserem Falle 312 
(50138), vermerkt, 
springt der Computer 
nun stattdessen dorthin. 
Dort braucht nun nur un- 
ser Maschinenprogramm 
stehen, das nun von sich 
aus die Tokenisierungs- 
routine aufruft, die Bytes 
der Zeilennummer zu den 


Bytes der tokenisierten 
Zeile addiert, die Summe 
in sichtbare Zeichen wan- 


delt, dieselben ausgibt 
und mit einem RTS wie- 
der ins aufrufende Pro- 
gramm des Basicinterpre- 
ters zurückspringt. 


FUNKTIONSWEISE 
IM DETAIL 


Für diejenigen, die es 
noch genauer wissen wol- 
len, haben wir selbstver- 
ständlich noch detaillier- 
tere Informationen parat. 
Beim C16/116/Plus 4 
und dem C128 genügt es 
nicht einfach, wenn wir 
gleich mit der Tokeni- 


.puffers 
nen. Bevor wir allerdings . 


sierung beginnen, denn 
am Anfang des Basicein- 
gabepuffers stand ur- 
sprünglich die Zeilennum- 
mer, jetzt sowohl wie 
auch nachher Schrott. 
Auf den Anfang der Ba- 
sicanweisungen verweist 
ein Zeiger, der Text- 
pointer ‘TXTPTR’, der 
beim C16/116/Plus 4 in 
den Adressen 59-60 
($3B-3C), beim C128 da- 
gegen in den Adressen 61 


und 62 ($3D-$3E) an- 


zutreffen ist. Die Inhalte 
dieser Zellen gilt es also 
vor dem Aufruf der To- 
kenisierungsroutine zu 
sichern und hinterher 
wieder herzustellen. Beim 
C64 ist solches nicht nö- 
tig, weshalb wir ganz un- 
geniert diese Lade- und 
Speicherbefehle durch 
NOP-Codes (NO OPERA- 
TION) ersetzen. Das 
Y-Register pflegt nach 
der Tokenisierung die Zei- 
lenlänge beizubehalten. 

Ob wir sie benötigen oder 
nicht, darüber zerbrechen 
wir uns nicht den Kopf, 
wir werfen den Wert ein- 
fach auf den Stapel und 
können mit der Berech- 
nung beginnen. Hierzu 
addieren wir die zwei 
Bytes in den Adressen 20 
und 21 ($14 und 815), 
die die Zeilennummer an- 
geben, und summieren 
zusätzlich die Bytes der 
tokenisierten Basicanwei- 
sungen auf. Beim C16/ 
116/Plus4 und dem C128 
geht dies über die bereits 
erwähnten Zeiger, ($3B 
beim C16, bzw. 33D 
beim 128), beim C64 
können wir direkt am 
Anfang des Basiceingabe- 
(50200) begin- 


addieren, fragen wir noch 
ab, ob wir nicht etwa ein 
Leerzeichen vor uns ha- 
ben. Dieses wollen wir 
schließlich bei der Sum- 
menbildung übergehen. 
Nachdem wir auf das 
Nullbyte als Pufferende- 
markierung gestoßen 
sind, bleibt uns nur noch 
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“ dieses 


eines zu tun, nämlich die 
ermittelte Summe auszu- 
geben. Hierzu haben wir 
natürlich verschiedene 
Möglichkeiten. Wir könn- 
ten dies z.B. durch Cur- 
sormarken und die 
BSOUT-Routine bewir- 
ken, bekommen dann 
allerdings Schwierigkei- 
ten mit der Korrektur 
von Basiczeilen, die mehr 
als eine Bildschirmzeile 
lang sind. Hier wird dann 
gern der Rest unterschla- 
gen. Die einfachste Mög- 
lichkeit ist, die Werte 
direkt in den Bildschirm- 
speicher zu poken, der 
beim C16/ 116/Plus4 ab 
Adresse $0C00 beginnt, 
gegenüber der Adresse 
50400 bei den anderen 
Systemen. Dies hat aller- 
dings den Nachteil, daß 
Verfahren beim 
C128 nur im 40-Zei- 
chenmodus funktioniert. 
Wir nehmen aber dieses 
ruhig in Kauf und werden 


DEMNACHST AUCH IM 


80-ZEICHEN-MODUS 


bei Gelegenheit eine Ver- 


sion bereitstellen, die 
auch den 80-Zeichenmo- 
dus berücksichtigt. Wenn 
wir nichts eventuell Un- 
leserliches haben wollen, 
müssen wir unser Sum- 
menbyte in zwei Bytes 
zerlegen. Wir könnten 
eine Hexzahlenwandlung 
machen, oder einfach 
Buchstaben von A-P ver- 
wenden. Da die letztere 
Möglichkeit uns ein paar 
Bytes erspart, entschei- 
den wir uns für diese. 
Durch Addition von $81 
erreichen wir sogar eine 
reverse Darstellung der 
zwei Bytes. Was bleibt, 
ist, die auf den Stapel 
gerettete Zeilenlänge 
wieder in das Y-Register 
zurückzubefördern und 
der Rücksprung kann ge- 
trost erfolgen. Nähere 
Einzelheiten können Sie 
dem beiliegenden As- 
semblerlisting 
men. 


entneh- 
2B 
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TIPS & TRICKS 


CHECKSUMMER CHECKSUMMER SE 
Asseablerlisting des Checksuaaers 
RIRCHEIPIEN . 0162 dB #B  bne #0154 ; Schleife, GABE L 
s i ; nenn wei- 
r = = # hr = ! er ‚ tere Bytes Eine ziemliche Verände- 
: » ; folgen B rung ist mit unseren 
. Bi3b a5 3c Ida sc ; CTATPTR) Listings vor sich vorge- 
un PnM Kram 6 a9 Ida dklf ; Blank-t gangen. Bisher AR 
: wir sie in einer Breite 
. Bile 20 56 89 jsr 58956 ; Zeilen- u N a von. 35 Zeichen ab, Nun- 
; eingabe 5 mehr ist das Listing nur 
ı tokeni- a ” h EBEN mehr 30 Zeichen Dreit, 
‚ sieren ; Akku denn die weiteren 5 Zei- 
chen am rechten Rand 
. Bi4l 68 pla ; Text- ‚BB 4a lsr ; High- dienen einem anderen 
. 42 8530 sta sic ; pointer 06 a der; Nibble ecke Trese Our 
“144 58 pla ; wieder- . Biba da Isr ; auf Stack SE se re 
„45 85 36 sta $3b ; hefstellen BT ae einappen, sötderi. "Sie 
Böc 4 = dienen Ihnen zur Über- 
. 8147 9% tya ; Zeilen- ‘ P prüfung Ihrer Eingabe. 
. 2148 48 pha ; laenge Zwischen dem Kleiner- 
; retten ‚Bisd Ba txa ; Suane in und dem Größerzeichen 
: am rechten Rand be- 
i F BERN finden sich zwei Buch- 
. 2149 20888 I1dy #398 ; Index=d stahen Mit einer inenid- 
. Mbe 290 and HB ; Low-Nibble hen Prosa se 
. 4b 3314 Ida $i4 ; Zeilen- . 8178 48 pha ; auf Stack beim Eintippen Ihre Ein- 
. Bidd 18 elc ; Aunaern- gabe auf ihre Richtigkeit 
‚ dlde 515 - ade $15 ; bytes BT a9 it Ida dlf 5; Blank-i überprüfen. Dieses Pro- 
. Bi5Q aa tax ; addieren . 8173 48 pha ; auf Stack gramm, der Checksum- 
mer, sorgt nämlich dafür, 
‚Bst 18 elc . 0174 2203 1dx #803 ; Zaehler daß nach erfolgter Zeilen- 
. 8152 9 db bee Bist ; immer N. eingabe am linken oberen 
: j Bildschirmeck zwei Buch- 
a ER url | RR ME, Mar Ponbbaebät u 4]; ae ee 
: ' : ; heben ERST SICHERN, DANN 
. 8158 8a txa ; Sumae in AUSPROBIEREN 
; Akku . 83177 18 elc ; increaen- 
‘ 8178 67 81 ade #81 ; tieren und staben ausgegeben Wer- 
. 8159 18 elc ; Byte ‚ revertie- den. Wenn diese Buch- 
. 35a 71 3b ade ($%b),y ; addieren j ren staben nicht mit den vor- 
her erwähnten Buchsta- 
‚Sc ea nop ; Platz fuer . B17a 9d 80 dc sta SOcdd,x ; Bild- ben in unserem Listing 
: Ober ; schira- übereinstimmen, so kön- 
Der ; ausgabe nen Sie davon ausgehen, 
AAN ö daß Sie sich vertippt 
haben und können sich 
. Biäd aa tax ; Suaae in ‚ud ca nn slaehler so die Zeile nochmals 
; Register serniedrigen näher ansehen, ob Sie 
Ihren Eingabefehler fin- 
‚23158 8 iny ; Index . B3i7e 18 fA bpl 58175 ’ Schleife, den. Wenn Sie dann alles 
ı increaen- ; wenn Zaeh- richtig getippt haben, so 
‚ tieren ; ler posi- stimmen die Buchstaben 
e, ı tiv überein und Sie können 
‚BE bi 3b Ida ($3b),y ; Byte sich getrost der nächsten 
6 Yöse a0 8 pla 5; Zeilen ale Events 7 2 
. Bid a8 tay ; laenge in Das Checksummerlisting 
! ; hat noch keine Prüfsum- 
. Bldl ea nop ; Platz fuer ; Yregister men. Seien Sie: deshalb 
; C64-Ver- besonders aufmerksam, 
; sion . 2192 60 rts ;Ruecksprung daß alles paßt und spei- 


58 


: TIPS & TRICKS 


chern Sie dieses Programm 
unbedingt ab, bevor Sie 
es starten! Bei einem 
Tippfehler würde es sich 
wahrscheinlich auf Nim- 
merwiedersehen verab- 
schieden und Sie müßten 
die ganze Arbeit vermut- 
lich nochmals machen. 
Wenn Sie es gestartet 
haben, so geschieht 
nichts Besonderes. Der 
Computer meldet sich 
einfach kurz darauf mit 
„READY“, und das war 
auch schon alles. Alles 
sollte nun wie immer 
funktionieren, : mit der 
kleinen Ausnahme, daß 
nunmehr nach jeder Ein- 
gabe im Direktmodus 
eine Prüfsumme erscheint. 
Nehmen Sie zum Testen 
irgendeine kurze Basic- 
zeile aus unserem Heft 
her und testen sie aus. 
Wenn die Summen über- 
einstimmen, so können 
Sie sich freuen, denn 
Fehler beim Abtippen 
werden Ihnen nun in Zu- 
kunft viel weniger passie- 
ren, als vorher. 


EINER FÜR ALLE, EIN 


ECHTES UNIVERSAL- 
PROGRAMM 


Unseren Checksummer 
können Sie verwenden, 
ob Sie einen C16/116/ 
Plus4 oder ob Sie einen 
C64 oder gar einen C128 
haben, Nur müssen Sie 
beim letzteren beachten, 
ob Sie auch wirklich ım 
40-Zeichenmodus sind, 
Nachdem Sie den Check- 
summer geladen und ge- 
startet haben, können Sie 
Ihr Basicprogramm ein- 
geben wie gewohnt, Sie 
können es abspeichern, 
Sie können auch laden, Si 
Sie können Kürzel ver: 
wenden und, ob Sie ein 
paar Leerzeichen mehr 
oder weniger verwenden, 
der Checksummer läßt 
sich dadurch nicht aus 
der Fassung bringen. Ein 
bißchen Vorsicht sollte 


man. allerdings walten 
lassen, wenn man Pro- 
gramme eingetippt hat, 
in denen Peeks und Pokes 
vorkommen. Es wird 
zwar nicht besonders 
häufig vorkommen, aber 


es könnte bisweilen ge- 


schehen, daß nach dem 
Laufenlassen eines Pro- 
grammes weder der 
Checksummer noch sonst 
etwas mehr funktioniert, 
auch wenn dies bisher 
ohne Checksummer nicht 
der Fall gewesen sein 
sollte. Also bitte sichern 
Sie in jedem Falle Ihre 
Programme, bevor Sie sie 
ausprobieren. 

Ein paar Dinge sollten 
Sie noch wissen. Wir 
drucken in unseren Li- 
stings des’ öfteren Punkte 
statt Leerzeichen. Wenn 
Ihnen nun aber Leer- 
zeichen besser gefallen, 
so liefert der Checksum- 
mer natürlich eine falsche 
Summe. Wenn Sie diese 
Zeile aber auch auf ihre 
Richtigkeit überprüfen 
wollen, so können Sie 
dies tun, indem- Sie sie 
zuerst einmal so wie im 
Heft abtippen, und nach- 
her, nachdem Sie sie nach- 
geprüft haben, einfach 
wieder die Punkte durch 
Leerzeichen ersetzen. 


NICHTS IST 
VOLLKOMMEN 


Eines haben wir leider in 
unserer Checksummer- 
version noch übersehen. 
Es ist uns erst in aller- 
letzter Minute eingefallen, 
daß es ja auch geschehen 
kann, daß jemand zwar 
alle Buchstaben einge- 
tippt hat, die in einer 
Eingabezeile stehen, daß 
er aber vielleicht zwei 
Buchstaben vertauscht 
hat. Wir konnten diesen 
Fall leider nicht mehr 
berücksichtigen. Wir hof- 
fen, daß Ihnen unser 
Checksummer auch so 
wertvolle Dienste leisten 
wird. A. Mittelmeyer 


CHECKSUMMER 


=checksummer=-=c16 c64 c128== 
{p) 85/87 commodore welt 


a.mittelmeyer me 


c16/116/plus4 
c64 


c128 (48-zeichen) 


zz m=szzzoemım ze zecmzzzuo mem 


165,59, 72, 165,68, 72,32,86. 
137,184, 133,68,104,133,59, 


72,160,8,165,28,24, 101,21 
178,24, 144,11,201,32,248,6 
138,24,113,59,234, 170,290, 


59,234,208,240,169,31,72,1 


74,74,74,74,72,138,41,15 
72,169,31,72, 162,3, 1904,24 
185,129, 157,8, 12,202,16,24 


data 184,168,96 
lt=peek( 772) :ht=peek( 773) 
for i=-312 to 386:readx:pokei,x: 


if 1t<>124 then 358 
rem 


rem 
fori=-312t0317:pokei,234:next 
fori-321t0326:pokei, 234:next 
fori=1t06:readad:readx:pokead,x 


next 


328 


pokse 388,4:poke 319,1t:poke328, 


ht:goto438 


338 
348 
358 
368 
378 
388 
398 
4898 
418 
420 
438 
448 
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data 346, 121,347,0,348,2 
data 351, 185,352,8,353,2 
if 1t<>13 then 438 

rem 


rem 
restore 418:poke332,22 
poke335,23:g0oto318 

data 313,61,316,62,323,62 

data 326,61,347,61,352,61 

poke 772,56:poke 773,1 

rem 7 === programmende-------- 


| LISTING 


SCHNECKENRENNEN 


oder: 
Ja wo laufen sie denn? 


Eine dramatische Atmosphäre wie auf den großen 
Pferderennbahnen der Welt, z.B. wie in ASCOT, wird 
aufkommen, wenn die “Kleinen” von Commodore 
auf dem Bildschirm um den Großen Preis von 
Deutschland laufen. Also hier gehts um die Wurst, 
nein falsch, richtiger ist, es geht um frisches Grün. 
Hier gehen anstatt reinrassiger Rennpferde fünf 
hochdotierte Rennschnecken an den Start. Mit der 
Nummer 1 ‘Romeo’ ohne Julia, mit Nummer 2 ‘Flip- 
per’, der Freund der Kinder, mit Nummer 3 “Wirbel- 
wind’, der Schaumschläger, mit Nummer 4 ‘Bleifuß’, 
eine Autobahnschnecke und mit Nummer 5 ‘Kugel- 
blitz’, die Weinbergschnecke. 

Schließen Sie ihre Wette auf den zu erwartenden 
Sieger dieses Wettbewerbes ab und gewinnen Sie mit 
dem richtigen Tip. Ein Spiel für die ganze Familie, 
vorausgesetzt, es sind nicht mehr als sieben Personen. 
Nach dem Titelbild und der Abfrage ‘Anzahl der 
Spieler’ und der Bestätigung mit RETURN können 
die Mitspielernamen (maximal 8 Buchstaben) nach 
nochmaliger Bestätigung mit ‘RETURN’-Taste einge- 
geben werden. 

Nun erscheint die Tipabfrage, Sie können ihr Geld 
auf die fünf Rennschnecken verteilen. Die Quoten der 
Rennschnecken geben ihre Chancen das Rennen zu 
gewinnen an, d.h., je niedriger -die Quote einer Renn- 
schnecke, um so höher ist ihre Chance, als Erste 
durch das Finish zu gehen. Vorsicht, die Quote ändert 
sich mit jeder Wetteingabe, die auf die fünf Renn- 
schnecken gesetzt wird. In der ersten Zeile steht, vor 
welchem Rennen Sie sich im Augenblick befinden 
und Wetteingaben möglich sind. In den nächsten 
Zeilen stehen die Spieler und das zur Verfügung 
stehende Wettkapital, weiter die Rennschnecken und 
deren Quotierung. Es wird angezeigt, welcher Spieler 


gerade an der Reihe ist und seinen Tip abgeben kann. 
Auf die erste Frage “Wieviel wollen Sie setzen?’, muß 
der gewünschte DM-Betrag eingegeben und mit ‘RE- 
TURN?’ bestätigt werden. Auf die zweite Frage ‘Auf 
wen setzen SIE?’, geben Sie die Zahl 1/2/3/4/5 ent- 
sprechend Ihres Rennschnecken-Favoriten ein und be- 
stätigen erneut mit RETURN’. 

Wenn alle Rennschnecken in ihrer Startbox ange- 
kommen sind, wird nach kurzer Zeit das Feld gestar- 
tet und los geht die wilde Hatz. Kommentar: ‘Ja wo 
laufen sie denn?’. Nach dem Zieleinlauf erfolgt die 
Auswertung des Rennverlaufs, verteilt auf die Mit- 
spieler. 

Entscheidend ist hierfür das Zielfoto. Sollten Sie 
mit ihrem Tip richtig gelegen haben, so erhalten Sie 
Ihren Einsatz mal der Quote der Siegerschnecke als 
Ihren verdienten Gewinn gutgeschrieben. Merke: 
Gute Quote = Guter Gewinn — aber geringe Sieger- 
chancen. Haben Sie ihr gesamtes Start-Kapital von 
100 DM verjubelt, so scheiden Sie aus der Runde der 
anderen Mitspieler aus und können das Wettgesche- 
hen nur noch als Zuschauer mitverfolgen, Fachge- 
spräche und Beratung mit den anderen Mitspielern 
sind möglich. Der Verlierer wird zur Schnecke ge- 
macht, der Gewinner wird vom Veranstalter des 
Großen Preises von Deutschland, in ein französisches 
Schnecken-Feinschmeckerlokal eingeladen. 

Prost Mahlzeit! 

Das Programm hat 9876 Bytes und läuft deshalb 
als BASIC 3.5 Version auf allen Commodore 116 
12277 Bytes, Commodore 16 12277 Bytes und mit 
allen Erweiterungen 28661 Bytes oder 60671 Bytes, 
natürlich auch auf dem Plus/4, der bekanntlich auch 
60671 Bytes zur Verfügung hat. Bitte die Hilfspunkte 
CHR. $ (046), in den angegebenen Zeilen (siehe 
Listing), durch Spaces/Leerzeichen CHR $ (032) er- 
setzen. 

Viel Spaß beim Eintippen wünscht Ralf Viezens 
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„DAS SCHNECKENRENNEN 


1a r 
2eU rn 
38 r 
48 r 
5% r 
68d r 
20 7 
88 r 
92 r 
128 
) 
118 
) 
128 
) 
738 
) 
148 
158 
168 
178 
188 
0,91 
212, 
198 
2,81 
222, 
208 
. E. 
218 
. wi 
2208 
“=, 
230 
een 
2408 
ee 
258 
ge 
260 
2708 
30 
288 
2908 
ee 
380 
318 
3208 
338 
3408 
358 
368 
378 
380 
398 
480 
410 
428 


3 . 


em schneckenrennen =====/6 
em (p) commodore welt = 
em ========--=-=2==2==== === >= 
em (c) by ralf viezens = 
em Fi 
em = 
em version 3.5 48z/ascii = 
em c16/116/plus4 = 
em ======-===2====2==22===22=>=> 
v1$=chr$( 817) :v2$=chr$( 145 


v3$=chr$( 0818) :v4$=chr$( 146 
v5$=chr$( 138) :v6$=chr$( 131 
v7$8=chr$( 919) :f1$=chr$( 158 


f2$=chr$( 159) 

rem Rasa stse st st st seat se se st se ststle gest 
rem #Ht#H#eHseet titelbild * 
rem Fr arsearsgst ss sts er 
dats810,020,854,015,881,02 
7,015,897,020,917,010,897, 
881,030 
data864,029,881,915,854,02 
0,015,834,020,810,030,810, 
810,000 

BEE TIATT, EEE 
. ” uw. * u 7 * ... x 
b$(2)="*..: 
ch U, 2 EEE 
b$L3)=".*..*.. 

+ 3 * 


b$CA) 


vr 
EM 
%* 
%* 
ax 


_ 


TR ER 


Eu = 
He 
” Se wir PS at .. 


dima$( 17) 
scnclr:color®,6,3:color4,6 
olor1,8,6 

printv1$v1$ 

ag 1)=" #*# ralf viezens 
praesentiert*#t*= " 
fort=1tolen(a$( 1)) 
printv2$f1$right$(a$( 1) ,t) 
fors=1280t0880step-408 
vol4:sound1,s,1 

nexts - 
forz=1to48:nextz 

nextt 

fort=1t086 
printv7$f2$b$( 1) 
printv1$v1$v1$F2$b$( 2) 
forz=1toS®:nextz 
printv?7$f2$b$( 3) 
printv1$v1$v1$rF2$b$( 4) 


<ha> 


forz=1to5@:nextz 
printv?7$rf2$b$(5) 
printv1$v1$v1$r2$b$( 6) 
forz=-1toSß:nextz, ', 
nextt 

vol6 

restore182 

do 

reads,d 

sound!,s,d 
loopuntild=2 

a$l2)=".. 


ee ie ai 


a$gl5) =" ..M: : !N.UCIUCIB.B.. 


NY.NB.B.UCI " 


5808 


Y Ne 


598 
. YM 
688 


BER .B .BUUET ; ; 


-:B.BB.BB.B.N 
a$l7?)="...N.M. 


a$(8)=".MN...M. 


MY.MJCC.B.BCBoBUuR@" 


618 


658 


as 9)=" 


ae ei a ae 
“Er UL LU LE nn 
we ati 


ag 13) =" 


CIUCIB.B.UCI x 


668 


a$( 15) =" 
a$gl 16)=" 


a$( 17)=" 
fort=1t039 
printv?$v1$V1$V1$V1$V1$V1$ 
forx=2t017? 
printf1$right$(a$(x),t) 
nextx 

fors=8208t01888step48 
vol4:sound1,s,1 

nexts 

nextt 

do 

printv?$rf2$b$( 1) 
printv1$v1$vVv1$rF2$b$l 2) 
forz=1to5@:nextz 
printv?7$f2$b$( 3) 
printv1i$v1$v1$F2$b$( 4) 


« 


DAS SCHNECKENRENNEN & 


858 
860 
878 
8808 
898 
928 
918 
928 


forz=1t058:nextz 
printv?7$r2$b$(5) 
printv1$v1$v1$F2$b$( 6) 
forz=1t0o58:nextz 

getx$ 

loopuntilx$=" " 
fort=12288t07808 step-25 
vol6:sound1,t,2 


938 nextt 

948 scnelr:color®,12,4:color4, 
12 ,4:colorti, 1,1 

9590 rem Histaramataksearstatarakstatsgtatre 
960 rem *#** vorbereitungen * 
970 rem Hrzfiraterstatsrapsear arten 


988 printtab(6)v1$vV1$V1$V1$"”wi 
eviele spieler ??" 

990 printtab(6)vT$"l 1-7 )7"; 
1888 inputss 

1818 ifss<tiorss>?then 1922 

1028 vol5:sound1,881,5 

1830 printtab( 4) v1$vV1$vV1$vV1$vV1 
$"eingabe der spielernamen !!" 
1848 printtab(5)"(max.8 buchst 
aben)" 

1858 print:print:print 

10868 fFori=itoss 

1878 printv2g" 


a Se Se a ee ":rem 38 
x space 

1880 printtab(4)v2$"spieler "i 
’ 

12898 inputs$(i) 

11088 vol5:sound1,881,5 

1118 1=1l1en(s$(i)) 

1128 ifl>8then1987®2 

11380 nexti 

1148 ifss<lorss>?then 1888 

1158 kK( 1)=1808 

1168 ifss>ithenk(2)=182:elsek( 

2)=® 

1178 ifss>2thenk(3)=1®B:elsek( 

3)=8 

1188 ifss>3thenk(4)=19B:elsek( 

4)=® A ; 
1198 ifss>4thenk(5)=19®:elsek( 

5)=8 

12808 ifss>Sthenk(6) =18®:elsek( 

6) =8 

12108 ifss>6thenk(7)=18®B:elsek( 

?)=2 

1228 rem SHirstarsrartatafatsg past 
1238 rem #***# _hauptschleife 
12408 rem !Hfststsrseststsrsenk teren 
1258 kK(1)=int(kl1)+el1)):el1)= 

8:p(1)=2 


1268 kK(2)=int(k(2)+e(2)):e(2)= 
8:p(2)=® 
1278 kK(3)=int(kK(3)+e(3)) :e(3)= 


8:p(3)=2 
1288 k(4)=int(k(4)+e(4)) :e(4)= 
8:p(4)=2 


1298 kK(5)=int(k(5)+e(5)) :e(5)= 
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8:p(5)=® 

1308 kK(6)=int(k(6)+e(6)) :e(6) = 
8:p(6)=® ; 

17318 k(?)=int(kl?)+te(7)):el 
282:p(7)=2 

1320 ifkKÜI)+KÜ2)+KÜB)+KCA)+K(5 
)+K(6) +K( 7) <1thengoto3758 

1338 v=v+1 

1348 scenclr:color@,14,6:color4 
„14,6:ceolor1,1,1 

1358 printtab( 18) "rennen"v 
1368 printv1$"spieler....kapit 
al.B.schnecke....quote" 

137.0 Brint "CGECBEEGEGTELREECEEE 
CECCCECCECCCECCECCECEElc" 

1388 ifk( 1)>@thenprint"1)"s$( 1 
) 

1398 ifk( 1)>Bthenprintv2$tabl 1 
I) Kt 9); 

14088 printtab( 19) "B"spc( 39) "8" 
1418 ifk(2)>dthenprint"2)"s$(2 
) 

14280 ifk(2)>Bthenprintv2$tab( 
Kl) 

1438 printtab( 19) "B"spco( 39) "8" 
14480 ifk(3)>Bthenprint"3)"s$(3 
) 

1458 ifk(3)>Bthenprintv2$tabl 1 
1)KC3); 

1468 printtab( 19) "B"spc( 39) "B" 
1478 ifk(4)>Othenprint"4)"s$(4 
) 

1488 ifk(4)>®thenprintv2$tab( 
VIKL 5 

1498 printtab( 19) "B"spc( 39) "B" 
1588 ifk(5)>B®thenprint"5)"s$(5 
) 

1512 ifk(5)>Bthenprintv2$tab(1 
1)K(5) 

1528 printv2$tab( 19) "B"spc( 39) 
"gr 

15380 ifk(6)>Bthenprint"6)"s$(6 
) 

1548 ifk(6)>Q®thenprintv2$tabfl 1 
1)Kk(5) 

1558 printv2$tab( 19) "B"spe( 39) 
"gr 

1568 ifk(7)>@thenprint"7)"s$(? 
) 

1578 ifk(7)>Bthenprintv2$tabf 1 
1)K(6) 

1588 printv2$tab( 19) "B"spce( 39) 
vg" 

1590 print"TECEGECCLEEELECEEEE 


7)= 


en hr — 


ANZEIGENSERVICE 


Die große Börse für jeden Zweck in der CBM REVUE / COMMODORE-WELT. Kostenlos für Privat-Inserenten. Spottbillig für 
gewerbliche Anbieter. Einfach Coupon ausschneiden, fotokopieren o.ä., ausfüllen und ab die Post — Freimachen nicht vergessen! — 
Unsere Adresse steht auf dem Coupon, ebenso die Preise für gewerbliche Anbieter! Achtung! Wir weisen ausdrücklich darauf hin, 
daß wir offensichtlich gewerbliche Anzeigen nicht kostenlos veröffentlichen und uns jedweden Abdruck kostenloser Anzeigen vor- 
behalten müssen, insbesondere, wenn deren Inhalt nicht CBM-typisch ist oder gegen geltendes Recht verstößt. Private Chiffrean- 
zeigen werden nicht aufgenommen. Für Privatanbieter: maximal acht Zeilen ä 28 Anschläge. Für gewerbliche Anbieter: 5 DM p. mm. 


ANZEIGEN SIND KOSTENLOSE FÜR PRIVATAN- 
BIETER! Suchen Sie etwas, haben Sie etwas zu ver- 
kaufen, zu tauschen, wollen Sie einen Club gründen? 
Coupon ausfüllen, auf Postkarte kleben oder in Brief- 
umschlag stecken und abschicken. So einfach geht 
das. Wollen Sie das Heft nicht zerschneiden, können 
Sie den Coupon auch fotokopieren. Oder einfach den 


Anzeigentext uns so schicken, auf Postkarte oder im - 


Brief. Aber bitte mit Druckbuchstaben oder in 
Schreibmaschinenschrift! 

Und: Einschließlich Ihrer Adresse und/oder Tele- 
fonnummer sollten acht Zeilen a 28 Anschläge nicht 
überschritten werden. 

ACHTUNG: WICHTIGER HINWEIS! 

Wir veröffentlichen nur Kleinanzeigen privater In-. 
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COMMODORE WELT un 
ANZEIGENABTLG Yantarne 
POSTFACH 1161 Straße/Hausnr. 
D-8044 UNTERSCHLEISSHEIM Plz/Ort 
Be a a ee a er aan ee ee ee en E 
DAS SONDERANGEBOT: 
PRIVATE KLEINANZEIGEN 
KOSTENLOS! 
Das bietet Ihnen COMMODORE-WELT: KLEIN- serenten, keine gewerblichen Anzeigen. Die kosten 


pro Millimeter DM 5.00 plus Mehrwertsteuer! 

Wir versenden für Privat-Inserenten keine Beleg- 
Exemplare! 

Chiffre-Anzeigen sind nicht gestattet! Wir behalten 
uns vor, Anzeigen, die gegen rechtliche, sittliche oder 
sonstige Gebote verstoßen, abzulehnen! 
Anzeigenabdruck in der Reihenfolge ihres Eingangs, 
kein Rechtsanspruch auf den Abdruck in der nächsten 
Ausgabe! 

Die Insertion ist nicht vom Kauf des Heftes abhängig! 
Wir behalten uns vor, Anzeigen, die nicht zum The- 
menkreis des Heftes — Computer — gehören, nicht ab- 
zudrucken oder sie nur insoweit zu berücksichtigen, 
wie es der Umfang des kostenlosen Anzeigenteils zu- 
läßt. 


20/64/1228 
16 / PA / 116 


Das unabhängige Gommodore- Magazin 


KOMMT REGELMAÄSSIG ZU IHNEN 


Finden Sie Ihre COMMODORE-WELT nicht am 

Kiosk? Weil sie schon ausverkauft ist? Oder „Ihr"" 

Kiosk nicht beliefert wurde? Kein Problem! Für 
ganze 60 DM liefern wir Ihnen per Post zwölf 
Hefte ins Haus (Ausland 80 DM). Einfach den 
Bestellschein ausschneiden — fotokopieren oder 
abschreiben, in einen Briefumschlag und ab per 
Post (Achtung: Porto nicht vergessen). COMMO- 
DORE-WELT kommt dann pünktlich ins Haus. 


WICHTIGE RECHTLICHE 
GARANTIE! 
Sie können diesen Abo-Auftrag 
binnen einer Woche nach Eingang 
der Abo-Bestätigung durch den 
Be Verlag widerrufen — Postkarte ge- 


nügt. Ansonsten läuft dieser Auf- 


trag jeweils für zwölf Ausgaben, 
wenn ihm nicht vier Wochen vor 
Ablauf widersprochen wird ‚weiter. 


NUTZEN SIE UNSEREN BEQUEMEN POSTSERVICE 


COUPON 


16/6 


Ich nehme zur Kenntnis, 
daß die Belieferung 

erst beginnt, wenn die 
Abo-Gebühr dem Verlag 
zugegangen ist. 


COMMODORE WELT 
ABO-SERVICE 16/6 
POSTFACH 1161 


D-8044 
UNTERSCHLEISSHEIM 


ABO-SERVICE- KARTE 


zwölf Ausgaben an untenstehende 
“Anschrift. Wenn ich nicht vier Wo- 
chen vor Ablauf kündige, läuft diese 
Abmachung automatisch weiter. 


Ja, ich möchte von Ihrem Angebot 


Gebrauch machen. 
Bitte senden Sie mir bis auf Wider- 


ruf ab sofort jeweils die nächsten 


Name zu 
Vorname___ * 
Straße/Hausnr. ne BEN ZEN ae = 
Plz/Ort___ 2 : _ 


Ich bezahle: 
DO per beiliegendem Verrechnungsscheck 


U] gegen Rechnung 
OD bargeldios per Bankeinzug von meinem Konto 


bei (Bank) und Ort: _ a ” ee 
Kontonummer ___ Te : E = 


Bankleitzahl ____ 
(steht auf jedem Kontoauszug) 
Unterschrift 
Von meinem Widerspruchsrecht habe ich Kenntnis genommen. 


__ 16/6 


Unterschriftt____ zu 
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PROGRAMMSERVICE 


Hiermit bestelle ich in Kenntnis Ihrer Verkaufsbedingungen die Listings dieses Heftes auf 


OD Kassetten zu 40,- OD Disketten zu 40,- (16er) 


Ich zahle: 
Zutreffendes bitte ankreuzen! 


per beigefügten Scheck ( ) Schein ( ) 


Gegen Bankabbuchung am Versandtag ( ) 

Meine Bank (mit Ortsname) 5 Ben 16/6 
Meine Kontonummer __________ 2 4 N £ 

Meine Bankleitzahl ; (steht auf jedem Bankauszug) _____ 
Vorname = _ Nachname r ee Be ee 
Str./Nr. “ RE EEE REWBEL EUER 


Verkaufsbedingungen: Lieferung nur gegen Vorkasse oder Bankabbuchung. Keine Nachnahme. Umtausch bei 
Nichtfunktionieren. 16/6 


Unterschrift a e 
Bitte ausschneiden und einsenden an 


COMMODORE WELT 
KASSETTENSERVICE 16/6 
POSTFACH 1161 

D-8044 UNTERSCHLEISSHEIM 


LESER WERBEN LESER 


GEWINNEN SIE EINE COM- 
PUTER-UHR! Und zusätzlich 
eventuell noch ein großes Com- 


Der neue Abonnent war bisher 
noch nicht Bezieher dieser Zeit- 
schrift. 


modore-Buch. Oder ein Paket 
Disketten. ODER AUCH EINEN 
COMMODORE-DRUCKER - 
ODER EINE DISKETTENSTA- 
TION! Wie? Sie werben einen 
Abonnenten. Dann haben Sie auf 
jeden Fall schon die Computer- 
Uhr gewonnen. Zusätzlich ver- 
losen wir unter allen, die mit- 
machen, jeden Monat vier weitere _ 
wertvolle Preise. Und alle sechs Herrn/Frau_ 


Monate gibt es einen Hauptpreis 
unter allen Abo-Werbern zu rn 


gewinnen. 


gewinnen. Also: Mitmachen. Mit- Straße/Hausn ___ 


PIEEINE SR 


Wettbewerb. Ich habe 
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Ja, ich mache mit beim Abo- als neuen Abonnenten der COM- 
MODORE WELT geworben. 


Als Prämie erhalte ich nach Ein- 
gang des Abo-Entgeltes auf jeden 
Fall eine Computer-Uhr, wie ab- 
gebildet, und nehme zusätzlich 
noch an der Verlosung des Monats. 
sowie der halbjährlichen Haupt- 
preise teil. Mir ist bekannt, daß 
der Rechtsweg bei den Verlosun- 
gen ausgeschlossen ist. 

Meinen Preis senden Sie an 


Name 
Straße/Hsnr. 
Piz/Ort 


(Bitte ausschneiden und zusam- 
men mit der Abo-Bestellkarte 
links einsenden!) 16/6 


VERDIENEN SIE GELD 
MIT IHREM COMPUTER! 


Haben Sie einen Commodore VC 20 oder C 64? 
Einen 16/116, Plus 4? Oder einen 128? Können Sie 
programmieren? In Basic oder Maschinensprache? 
Dann bietet COMMODORE-WELT Ihnen die Mög- 
lichkeit, mit diesem Hobby Geld zu verdienen! 

Wie? Ganz einfach. Sie senden uns die Programme, 
die Sie für einen Abdruck als geeignet halten, zusam- 
“ men mit einer Kurzbeschreibung, aus der auch die 
verwendete Hardware — eventuelle Erweiterungen — 
benutzte Peripherie — hervorgehen muß (Schauen Sie 
sich dazu den Kopf unserer Programmlistings an.) 

Benötigt werden: Zwei Listings des Programms 
sowie eine Datenkassette oder Diskette! Wenn die 
Redaktion sich überzeugt hat, daß dieses Programm 
läuft und sich zum Abdruck eignet, zahlen wir Ihnen 
pro Programm je nach Umfang bis zu DM 300,-ı! 


Name des Einsenders: 


Sollten Sie keinen Drucker haben, genügt der Daten- 
träger. : 

Sie erhalten Ihre Kassette/Diskette selbstverständ- 
lich zurück, wenn Sie einen ausreichend frankierten 
Rückumschlag mit Ihrer Adresse beifügen. 


Bei der Einsendung müssen Sie mit Ihrer Unterschrift 
garantieren, daß Sie der alleinige Inhaber der Urheber- 
Rechte sind! Benutzen Sie bitte anhängendes Formu- 
lar! (Wir weisen darauf hin, daß auch die Redaktion 
amerikanische und englische Fachzeitschriften liest 
und „umgestaltete”’ Programme ziemlich schnell er- 
kennt). 

Um Ihnen die Arbeit zu erleichtern, finden Sie hier 
ein Formular. Sie können es ausschneiden oder foto- 
kopieren. 


Straße/Hausnr./Tel.: 


Plz/Ort: 


Hiermit biete ich Ihnen zum Abdruck folgende(s) Programm(e) an: 


Benötigte Geräte: een 


Beigefügtt ( ) Listings ( ) Kassette ( ) Diskette 


Ich versichere, der alleinige Urheber des Programmes zu sein! 
Hiermit ermächtige ich die Redaktion, dieses Programm abzudrucken und wirtschaftlich zu verwerten. Sollte es 
in den Kassetten-Service aufgenammen werden, erhalte ich auch dafür eine entsprechende Vergütung, das Copy- 


right geht insoweit auf den Verlag über. 


Rechtsverbindliche Unterschrift 


COMMODORE WELT 
PROGRAMM-REDAKTION 
POSTFACH 1161 

D-8044 UNTERSCHLEISSHEIM 


DAS SCHNECKENPRENNEN 


ECCETECCECECCECCCECEC" 


16808 
1618 
1628 
1638 
1648 
1658 
16682 
1 
1678 
1688 
1698 
1788 
1718 
1728 
1738 
1748 
1758 
1768 
1778 
1788 
1798 
1808 
1818 
1828 
1830 
$ 
1848 
808 


18502- 


g1$="romeo:..... 
g2s-"FIIEHBST. u" 
ge3$="wirbelwind" 
g4$="bleifuss.."” 
g5$="kugelblitz" 

printv?$ 
printtab( 22) v1$v1$vt$BvV1R" 


1$ 


printtab(22)v1$"2)"g2$ 
printtab( 20)v1$"3) "g3$ 
printtab(20)v1$"4)"g4$ 
printtab( 28)v1$"5)"g5$ 
printv?7$v1$v1$v1$ 
gosub225% i 
qi=qx 

gosub2958 

q2=qgx 

gosub28582 

q3=qx 

gosub2852 

q4=qx 

gosub2852 

q5=qx 

fori=1toss 
printv1$v1$vV1$vV1$V1$vV1$V1 


ifi=ssandk(i)<1ithengoto23 


ifk(i)<ithenprintv2$v2$v2 


gv2gv2$V2$vV2$V2$V2$:g0t01998 


1868 


2: 
1878 


printv2$v2$v2$"..spieler. 


printv1$" 


el ee m RT una ea ee 


x space 


x space 


1898 


wollen.sie.setzen.? 


1908 
1918 
1928 
608 
1938 
1948 
sie 
1958 
1968 
1978 


printv2$v2$V2$", 


I, 
’ 


‚wieviel, 


inpute(i) 
vol5:sound1,881,5 
ife(i)>k(li)ore(i)<1ithen18 


kKli)=kli)-e(i) 

printv1$" auf wen setzen 
E1,253,4,5) 2% 

inputp(i) 
vol5:sound1,881,5 
ifp(i)<iorp(i)>Sthenprint 


v2$v2$v2$:g0t01868 


1988 
1998 
20008 
2818 
28028 
2838 


gosub2282 

nexti 
forl=-1to1®8d8:nextl 
g0oto2388 
rem BEE IE TE TEIL IE IE SEAT AR IE SEI 


alt ul 2 tu 3 vr Kl 2 2 
SsLaLsL[ Mm 
rem #rr% 


unterprogramme * 


<al> 
<eä> 
<hp> 
<of> 
<lc> 
<ab> 
<mc> 


<cp> 
<cdk> 
<seg> 
<fc> 
<fo> 
<pp> 
<bc> 
Skt> 
<cg> 
<1lk> 
<dk> 
<mp> 
<xeo> 
<oe> 
<gd> 
<pk> 
<bk> 


<hd> 
<ni> 
<hh> 


<bd> 


<kj> 


<1ld> 


<hi> 
<nh> 
<aa> 


<ha> 
<jh> 


<bn> 
<be> 
<dc> 


<gi> 
<bk> 
<ji> 
<pe> 
<dh> 
<om> 
<io> 


2840 
2058 
2068 
20708 
2088 
2898 
2108 
21108 
2128 
2138 
2148 
2158 
2168 
2178 
2188 
2198 
2208 
2218 
2228 
2238 
Et 

2248 


b(33); 


22582 
2268 
2270 
2288 
2298 
2308 
2318 
2328 
2338 
2348 
2358 
2368 
23708 
2388 


rem WRRRRISBRspsraksspstskstge 


qx=int(rnd( 1) #19) +2 
printtab( 33)v1$gx 
return £, 
ifp(i)=1ithengx=gI 
ifp(i)=2thengx=q2 
ifp(i)=3thengx=q3 
ifp(li)=4thengx=gqg4 
ifpli)=Sthengx=g5 
ife(i)>18@8then23582 
gyx=qx-(e(i)/1920) 
ifqx<2thengx=2 
ifp(i)=1thengi=gx 
ifp(i)=2theng2=gx 
ifp(i)=3theng3=gx 
ifp(i)=4theng4=gx 
ifp(i)=5thengS=gx 
printv7$v1$v1$v1$ 
fort=1t05 ; 
printteb( 33) v1"... ."Enex 
printv7$v1$v1$vV1$v1$vV1$ta 
’ 

printusing"##4.#";qg1 
printv1$tab( 33); 
printusing"##.#";q2 
printv1$tab( 33); 
printusing"##.#";q3 
printv1$tab( 33); 
printusing"#4.#";q4 
printv1$tab( 33); 
printusing"#4.#";,q5 
return 

qx=qx-1B 

ifqx<2thengx=2 

goto21682 
scnclr:color®,11,3:color4 


11, SEI, 


2390 
2408 
3180 
2410 
2420 
3$1 

2438 
2440 
2458 
2468 
24708 
2488 
2490 


sz=® 
gosub2780,2880,2980,3088, 


forl=3to8step-1 
printv?7$vV1$v1$v1$tabf( 13) v 


vol6:sound1,888,1®8 
fort=1t025®:nextt 

nextl 
g1=-90:g2=-9:9g3=-8:g4=9:g5=08 
do 
qx=qi 
gei=gx 


'gx=g1l:gosub2608 
:sz=abs((g1/5)-1):go 


sub2788 


2508 
2510 


qx=q2 
g2=gx 


ıgx=g2:gosub26008 
:sz=abs( (g2/5) -1):go 


sub2888 


2528 
25308 


aqx=-q3:gx=g3:g0sub2692 
g3=gx:sz=abs( (g3/5)-1):go 


sub2988 
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DAS SCHNECKENPRENNEN 


2548 qx=qg4 
2550 g4=gx 


:gx=g4:gosub2600 
:sz=abs((g4/5)-1):go 


sub3888 

2568 qx=q5:gx=g5:g0sub2608 
2570 g5=gx:sz=abs((g5/5)-1):go 
sub31882 


2588 loopuntilg1>=15Borg2>=158 
org3>=15Borg4>=15Borg5>=1508 
2598 g0t02690 

2688 ifgx>=2thenz=6 

2618 ifgx>=Sthenz=5 

2628 ifgqx>=?thenz=4 

2638 ifgqx>=9thenz=3 

2648 ifqx>=13thenz=2 

2658 ifqx>=1?7thenz=1 

2668 y=int((rnd( 1)*26) +z) 

2670 gx=gxty 

2688 return 

2690 ifgi>=g2andg1>=g3andg1>=g 
4andg1>=g5Stheny=! 

2708 ifg2>=glandg2>=g3andg2>=g 
dandg2>=g5 then y=2 

e718 ifg3>=giandg3>=g2andg3>=g 
4andg3>=g5 then y=3 

2720 ifg4>=glandg4>=g2andg4>=g 
Sandg4>=g5 then y=4. 

2730 ifgS5>=-glandg5>=g2andg5>=g 


SandgS>=g4 then y=5 

2748 g0t03328 

2758 rem #rzrstarstatarspafspaterarstarstspt 
2768 rem unterprogramm rennen 

27708 rem #rsrstatstakstatatse earth 
P780. SHER TOO" rare, 
EEE EEE ":rem 32 sp 
ace 

2790 SHARON RE As 
SE EEE ":rem 32 sp 
ace 

2300 ENTE ET dan He 5x 
N a aan a ART ":rem 32 sp 
ace 

2810 chart, sz,2.," BUETI" 

2828 char1i,sz,3," BoBue" 

2838 char1i,sz,4,"JJJCKK" 


vol4 
sound3, 1882,2 


28528 sound3,858,2 

2878 return 

BOB: HS N de af 
5. rer ihrane Peek ":rem 32 sp 
ace 

PRIBEchar 1 0,8, en. 
a en "ırem 32 sp 
ace : 
Fear! (NG Ne nr 
EEE ren ":rem 32 sp 
ace 

291@,char] ,s2,7," .UBOEL" 


<gk> 


<ih> 
<ib> 


<jp> 


<af> 
<ic> 
<oe> 
<pa> 
<pl> 
<ag> 
<dk> 
<eh> 
<cr> 
<gl> 
<ba> 


<fn> 
<gl> 
<hj> 
<ih> 
<jf> 
<ap> 
<mj> 


<bk> 
<nn?> 


<kj> 


<le> 


<1lp> 


‚<pc> 


<la> 
<ik> 
<dc> 
<if> 
<gl> 
<mp> 


<bd> 


<bo> 


chsar1,52,8," BOBUE" 

cher1,s2,9,"JJJCKK”" 

vol4 

sound3,922,2 

sound3,758,2 

return 

ehari, 0,11 NR ans 
a ar ee eh aan dee "rem 

[= 3 aaa er 2 ETF REN FRE 
a ea Ta ae TE ":rem 

ENARTSO eier. ne se 
Be es ":rem 

chari,s2,.11," ÜUEE” 

char!,sz,12," BoBue®@" 

chari,sz,13,"JJJCKK" 

vol4 

sound3, 1290,2 

sound3,858,2 

return 

char1,8, EEE TIER 
Bea Be eh 3 Rah Se "Rem 

char1,8, TE RE 
le oe a Be ar nie rn ":rem 

SHIT SOSE na nen 
ENTE ER De "ırem 

chari,sz,;16," UUCI" 

char1,sz,17," BoBue@" 


chari,sz, 18, "JJJCKK" 


vol4 


sound3, 980,2 
sound3, 758,2 


return 


ehar1,9,21,;" 


EEE EEE ae a 


chart ,.sz ,21," 
char „sz, 22," 


UUCI" 


chari,s2,23,;,"JJJCKK" 


vol4 


sound3, 1288,2 
sound3,858,2 
for 1=8t0288:nextl 


return 
rem 
rem 
rem 


BoBue" 


BEREITET TE SE HIT N I SE AR SE I II 


gewinner ermitteln *# 


BEE NE AR AL IE NEAR SR AF AR SR IE IRRE IE IE 


<he> 


<hp> 


<ik> 
<ol> 
<ki> 
<ic> 
<pk> 
<en> 
<dd> 
<jh> 


<no> 


3378 -ify=ithenprintteb( B)v? 
$v5$g1$ 
3388 ify=2 
$V5$g2$ 
3398 ify=3thenprinttab(8)v 
$V5$g3# 

34080 ify=4thenprinttab( 8) v2$F1 
$V5$g4$%$ 

3418 ify=5thenprinttab(l 8B)v2gfi 
$Vv5$9g5$ 

3420 BEER 8* 


E44 
thenprinttshb(B)v2$FN 


2Er1 


SAN BrImE Tran heriin 
3458 print"..*.2."f1$"het.gewo 
Rennes rag"*" 

SEIEN, DE 2 ana ne bes ann Den ed ar 
3478 print" Kran: ’ : 
3480 restore 3538 

3492 do 

3500 reads,d 

3518 vol6:soundl,s,d 

3528 loopuntild=® 

3538 data815,18,854,18 ‚897,85, 


917,40,917,5,917,0 


3548 forl=-®Bto1&Rd:nextl 

3550: senelr 

3568 printtab( 9) "gewinner..... 

Dres quote" 

3572 ify=1thenprintv1i$v1$tabl(l9 

EN ESUT RUHT EN: "4 

3588 ify=2thenprintv1i$vigßtahbl 9 

INDSBEASUER" 7a ea "aa 

3598 ify=3thenprintvi$vistabl 9 

VIE SHNER" ee "q3 

3688 ify=4thenprintv1i$vi$tabl(Q 
SEPEABVER" ... wet var "ga 

3618 ify=-Sthenprintvi$ßvigtab( $ 

ABB EHER". 12a "g5 

3628 for i=1toss 

3630 ifpli)=svthenprintvigvig" 


spieler"i"hat gewonnen !t1" 
3548 ifp(i)=ythengosub3698 


3658 :ifpli)<>ythen el(i)=® 


<ho> 
<ne> 
<08> 
<om?> 
<pi> 
<ae> 
<ig> 
<pe> 
<p0> 


<äl> 


<bc> 


<me> 
<pm> 
< j3k> 
<sd> 
<ai> 
<n1l> 


<ak> 
<af> 
<nd?> 
<ja> 
<ek> 
<fh> 
<gt> 
<hc> 


<h p> 
<cj> 


<I!h> 
<mm> 
<cok> 


366U nexti <et> 
367R forl=I1tc18Ad:nextl <> 
3688 goto1252 <ip> 
3690 ify=ithenelij=(e(i)* en <nf> 
37BM ify- 2thene(i)=(eli)* q2) <ob> 
37104 er yegthanet #1 ml el ä) da <on> 
3728 ify=4theneli)=(el(i)* nn <pj> 
3738 ify=Stheneli)=(e(li)* <af> 
3748 return ; <di> 
3758 scnceir < jm> 
EA in 

ort; B,4 <ma> 
2730 hd eb ie = 

Deere <lk> 


37858 printvi$vi$tab( 9) "spielen 
de FEIERN, 


RO 


® <mn> 
3808 RER TEE TEEN 
$gV1$V1$V1$vV1ihtebi 18) Fr$" neues 


sprel mat + 1" <eb> 
35198 restore188 <bf> 
3828 do <of> 
2338 reads,d <eo> 
3848 vol&:soundi,s,d <fe> 
3858 loopuntild=ü <ch> 
3868 getz$ <ec> 
3878 ifz$="+"then94R <jl> 
3568 goto3ä6ßa < ib 
3898 end <ınb 
3968 rem schneckenrennen ===16 <fa> 
3918 rem 12277 bytes memory = <ie> 
392% rem 89896 bytes progrsm = <ni> 
so3Q4 rem 889891 bytes variaebles <hc> 
3948 rem BA1B1 bytes arrays = <ik> 
335Q@ rem 28009 bytes strings = <pd> 
23968 rem 902208 bytes fre (8) = <cm> 
3978 rem =======-=-=--=-=-=-=-=-=2===-36 <ch> 
3988 rem bitte in den zeilen < > 
3598 rem 288-259/549-690/1070+ < 
ARBR rem 1859/1360 /16BRA-1620/ <= 
aai®ß rem 1860-1899 /2230/2780- < 
4020 rem 32098/3340-3468/ < 
4238 rem 3568-3618 leerzeichen < 
auAR rem (spaces) statt punkte < 
4850 rem eintippen !!!!!!t!!!! < 
AUGEN rem -===-=====-=-===--- 222222 < 


C16 SPECIAL 
DIE NR.1 
FÜR USER 
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LISTING 


ZWEIMAL 17 UND 4 


Ein Programm ist einfacher gehalten und so leich- 
ter nachzuvollziehen, man braucht hierfür aber genau 
einen Mitspieler. Das andere Programm ist flexibler 
und bietet mehr. Man kann allein oder mit bis zu vier 
Mitspielern gegen die Bank spielen, Einsätze tätigen, 
Gewinne erzielen, sogar Kredite sind zu erhalten. 

Die Regeln sind den meisten bekannt, wenn nicht, 
so sind sie schnell erklärt. Man zieht eine oder zwei 
Karten und zählt die Punkte zusammen. Es gilt fol- 
gende Aufstellung: 


Y = 7 Punkte 
8 = 8 Punkte 
9 - 9 Punkte 
10 = 10 Punkte 
Bube = 2 Punkte 
Dame = 3 Punkte 
König = 4 Punkte 
As = 11 Punkte 


Man muß versuchen, möglichst nahe an die Höchst- 
srenze von 21 Punkten heranzukommen, ohne diesel- 
be zu überschreiten. Dazu darf man weitere Karten 
ziehen, bis man meint, die Punkte seien genug. Hat 
man die Grenze überschritten, so hat man Pech ge- 
habt und verloren. Die Bank kann sich freuen. Hat 
jeder der Gegenspieler unter 22 Punkte, so gewinnt 
der mit der höheren Punktzahl. 

Manche Regelungen weichen voneinander ab. 
Manchmal wird ein Unentschieden bei Punktegleich- 
stand vereinbart, Es ist aber auch gebräuchlich, daß 
bei Punktegleichstand, sofern man gegen die Bank 
spielt, die Bank gewinnt. Auch gibt es die Regelung, 
daß zwei Asse — andere Karten darf man dabei aber 
nicht noch besitzen — gewinnen. Diese Kombination 
heisst Feuer. Bei 5 Bildkarten, also 5 Karten, unter 
denen nur Buben, Damen und Könige dabeisein dür- 
fen, gibt es ebenfalls diese Gewinnregelung. 

Diese Erklärung sollten vorerst genügen. Sie haben 
nun die Wahl zwischen “17+4”, das einfachere Spiel 
gegen einen Mitspieler, oder “17 und 4”, das Spiel 
mit mehr Möglichkeiten mit bis zu 5 Spielern gegen 
die Bank. 


Das Spiel “17 und 4” simuliert das Kartenspiel, 
wie es unter Zockern praktiziert wird. Der Rechner 
hält dabei die ganze Zeit die Bank. 

Der Spieler hat die Möglichkeit, auf den ganzen 
Pott oder nur auf einen Teilbetrag zu setzen. 

Er kann den Einsatz auch während des Spiels er- 
höhen, zieht damit aber noch eine weitere Karte. 

Bei übereinstimmenden Karten gewinnt immer die 
Bank. 

Der Spieler hat unbegrenzten Kredit, den die Bank, 
jedoch bei genügendem Kapital wieder einzieht. 

Bei Beendigung des Spiels wird für jeden Spieler 
der Gewinn oder Verlust angezeigt. 

Das Interessante bei diesem Spiel ist, daß immer 
von einem kompletten Kartenspiel gezogen wird, so 
daß der Spieler die gespielten Karten nachhalten 
kann. Ist das Buch zu Ende, kann er entscheiden, ob 
er neue Karten möchte oder ob er die, die er auf der 
Hand hat behalten möchte. Der Rechner nimmt im- 
mer neue Karten. 


Das Programm heißt 17 + 4 und ist für zwei Spie- 
ler. Es ist lauffähig auf C16/C116 Plus/4. 

Die Spielregeln von 17 + 4 werden vom Programm 
aus beschrieben. Damit das Einlesen der Karten und 
der Zufallserzeugung schneller geht, wird der Bild- 
schirm ab Zeile 261 bis 337 abgeschaltet. 

Das Einlesen geht damit um einiges schneller. Es 
hat einen Umfang von ca. 10 kb. 

Nach dem Start aber sind nur noch wenige Bytes 
frei, deshalb mußte auf rem Zeilen verzichtet werden. 


Verwendete Variablen: 


D$S(1) = Name des ersten Spielers 
D$(2) = Name des zweiten Spielers 
LS =  Kartenabfrage von Spieler 1 
MS = Kartenabfrage von Spieler 2 
Te * = Punkte von Spieler 1 

A = Punkte von Spieler 2 
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18 rem 17 + 4 =============0/6 
28 rem (p) 7/87 commodore welt 
38 rem =====-=============2===== 
48 rem (c) 9/87 by 

5Bß rem peter schwilk 
68 rem esslingen 

78 rem basic v3.5 

88 rem c16/116/plus4 

98 rem ======-=-=-=-==-=====-=-=-==02== 
180 gosub 1898 

118 dima( 13) ,0o( 13) ve$="ASZxX" 
120: data 7,2,8,8,9,9, 10,2,2,57 


3,0,4,k,11,8& 
132 fori=1to8:reads:e(i)=a:rea 
da$:f$(li)=a$:next 

148 poke1344,64:poke239,®:poke 
1351,128 

158 rem rer Er rere ee re rer ererer 
168 rem #*# titelbild 
170 rem #Hraratarstätsrakaratshapatapststapt 
188 printchr$( 147) :color®,2:co 
lor1,1:color4,2:fort=1t05 

198 char1,8,2,cy$+" "+rn$+"UCcc 
CCECCCCECCECECECCCECCI"+rF$ 

208 char1,8,3," "+rn$+"B siebz 
ehn und vier..B"+rf$ 

218 char1,8,4, "+rn$F+"JcccEct 
ECCCCCECECCECCEEK"+rf$ 
22%. coloril,3,5:charl 
RL RHRIEN a 


KRErE rer zrerererer 


9,23 
char nr a; is 


char 1,9,9, 2,8: ,# 


* a" 


SNORT SORT en 


Earl, a ar Bee 


Ba a er a 


eharı1,9,13, "zu. s N 


Mu rakaeskstskse" 


char Bid; "er Ban, 


* ar 


Shan Dh, Laer ” 


Dee Br Br Er Er er 


rem Hratstatsts 
restore39B: 
do 

readx,y 
sound1,x,y: 
nextt:vol8 

388 loop until x=® 

398 data643,8,685,8,685,8,643, 
8,704,8,704,8,643,8,704,8 

ann data704,8,739,8,685,8,794, 


vol®:fort=1t04: 


<cd> 
<pk> 
<ci> 
<ln> 
<fg> 
<hd> 
<cod> 
<ph> 
<ge> 
<md> 
<pj? 


<kh> 
<fa> 
<lc> 
<mb> 
<mi> 
<nf> 
enn> 
<ah> 
<cd> 
<kk> 
<1l1l> 
<jg> 
<hd> 
<hh> 
<en> 
<bi> 
<dn> 
<dc> 
<dn> 
<gc> 
<ff> 
<hg> 


<mk > 
zak;> 


<mn>. 


<pd> 
<jp> 


<em> 


8,685,8,643,8,704,8,770,8 
410 data704,8,704,8,739,8,685, 
8,685,8,704,8,739,8,739,8 
420 data704,8,643,8,643,8,685, 
8,704,8,685,8,643,8,704,8 
4308 data704,8,643,8,798,8,596, 
8,770,8,643,8,685,8,770,8 
448 data770,8,739,8,739,8,779, 


6,739,8,739,8,643,8,685,8,685, 
8, 04, B, 739; 8 


450 data, 0,2,0 
460 FR 


Dirt r ih ke Poli 


Meagarabstse 


470 anleitung 
480 ARARARSPSRSPAR SPAR SEA IL AR RAR 263 
498 color1,14,5:char1,18,29,"a 


nleitung "irn$+"3j/n"irfg 
5aB color1,1:char1,28,23 
.schwilk" 

512 poke239,8 

520 getkeya$ 

538 ifa$="j"thenvolß:sound! 
2,6:g0t0568 

540 ifa$="n"thenvolß:soundi, 
08,6:g0t0748 

558 ifa$=<>""thenvolß:sound1,6 
98,6:g0t0748 

562 printchr$( 147) 
STOPBPINESASR" 7 2; a0. .UCCCEC 
LEGEECEEGETI" 

SBO BrinE nenne en B spielre 
geln:.sB* 

590 BEINE "Es mer une JCCCECECCE 
CCECCEECK" 

608 printc4$" Fuer 2 spieler:" 
618 printc4$" jeder spieler be 
kommt 6 karten." 

628 printc4$" wechselweise wer 
den die karten einzeln" 

638 printc4$" aufgedeckt.wer d 
ie meisten punkte hat," 

648 printc4$" hat gewonnen (da 
bei darf keiner der" 

658 printc4$" beiden mehr als 
21 punkte haben !!!)."“ 

668 printc4$" wenn sie keine k 
arte mehr aufdecken" 

678 printc4$" wollen,dann gebe 
n sie bitte ’*’ ein % 
682 printoA$T. Als... 
e taste druecken es 
690 getkeyaß 

FOOD rem HHrzrRRRtsRSERrarearat satte 
712 rem 
28 rem er 
738 if a$=" 
90,6 

748 printchr$( 147) 

758 printc4$"spieler 1 "; 


‚"by p 


‚69 


69 


"rngrbitt 


Jestdt 


SPASS SE ame RR 


"thenvol8:sound1,6 


:inpu 


71 


17-4 


ern 
td$(1):vol8:sound1,690,6 <fa> 1138 t=o( 1)+0o(2)+o(3)+0(4) +0(5 
768 printc4$"spieler 2 "  Lnpu )+o(6) SE 1> 
td$(2) :vol8:sound1,698,6:poke6 1148 a=0(7)+0(8)+0(9)+o( 18) +o( 
5286, peek( 65286) and239 <mp> 11)+o( 12) <el> 
770 rem PRRHRSBRRRRSRSRSORHRHEIHEN <da> 1359 BELNEHSESCAEDRKEN". pu 
88 Fam ### en BER MIR. aka" sky, punkbea: sa <da> 
730 vom FAHRER <ea> 4180 Forx=1todfdinext <ea> 
300 KBC E""iKBl2)=r" <cm> 1179 ift=21 and a=21 then1388 <ac> 
818 For. 3-1 5 12:0[°5)=® <oi> 1188 ift>21 and a>21 then1410 <ae> 
828 al j)=int(rnd( 1)*32)+1:i=0® <fj> 1198 ifa=21 then 1470 <po> 
8380 if al j)=ali)then828 <hg> 1288 ift=21 then 14482 <bi> 
848 i=i+1:ifi<jthen83d “L:h>= 1210- Iift>2} then 1320 °’ <bo> 
858 next <nh> 1228 ifa>21 then 13582 <bi> 
862 poke 65286, peek( 65286) or 16 1238 goto 978 <pl> 
:rem bilschirm an <fh> 1248 ift=a then138® <cb> 
878 printchr$( 147) <lg> 1250 ift>a and t<21 then144B8 <ea> 
BOB DRIHEE aan Aue punkte 2... B 1268 ift>a and t>21 then1328 <ef> 
.punkte:" <I> 1270 ifa>t and a<21 then 1478 <ee> 
899 pPrintZbcßtEcbBECEEESEELEEe* 1288 if t>21 ae a>21 Een TO <gj> 
ymö"CECEBEELECEEECESEEEE" <fk> 1298 rem SEE <ba> 
900 Tor jeTtos3sprint” u. UCC 1308 rem tat ee x <ha> 
BGLIUCEBET., .B: ZUECETUCEET" <hl> 13182 rem Hin niiHHBiet <oe> 
ID. FOTIENEBInTIRE ana B"z 1328 printchr$( 147) :printleft$ 
5$25$z5$"BB"z25$25$z25$"B..B..B" (qgd$,6) <ib> 
z25$z25$25$"B8"z25$25$z5$"B" <gn> 1338 print" "rn$:d$(2);rf$" ha 
820 nexbl2print” or va JECCKJC t mit";a;" punkten gewonnen !! 
ECK..B..JCCCKJCCEK" :nextj <1lh> Ei <md> 
9330 printleft$(lqr$, 12) ;d$(1);1 1348 printc4$" "rn$;d$C 1) ;rf$" 
eft$( gr$, 19); Er <jo> hat";t;" punkte geholt.":goto 
948 rem a RER HERE x 1538 <bm> 
958 rem 1358 printchr$( 147) :printleft$ 
968 rem BER (qd$,6) <jp> 
978 if el een nen <nf> 1368 print" "rn$;d$l1);rf$" ha 
982 printhe$left$(qgd$,23)es$"q t mit";t;" punkten gewonnen !! 
"e3$c3$"welche karte ";:inputl . <pd> 
Se sen <kf> 1378 printc4$" "rn$;d$(2) ;rr$" 
998 K$C1)=mid$(1$,1,1) <mj> hat";a;" punkte geholt.":goto 
1828 ifk$( 1) > en 1538 <ci> 
en124D <lg> 1388 printchr$( 147) :printleft$ 
18198 ifk$(1)="*"then19042 <pn> (gd$,6) <ln> 
18208 ifkK$l1)<"1"ork$( 1)>"5"and 1398 print" unentschieden !!!! 
kK$C1)<>"*"then9?78 <ci> IR daE <cf> 
1838 if olval(kK$(1)))<>Bthen9? 1488 printc4$" jeder hat";a;" 
B ! <bh> punkte erreicht !!":goto 1538 <dc> 
848 if K$(2)="*"then197® <ca> 1410 printchr$( 147) :printleft$ 
10858 printhe$left$(gd$,23)es$" (qd$,6) ; <nl> 
a"spc(21);:input"welche karte 1428 print" verloren !!!!!!"“ <kb> 
";m$:vol8:sound1,690,6 <cg> 1438 printc4$" jeder hat mit"; 
1252 k$(2)=mid$(m$,1,1) ber. Ei "Ay: Dunkten verloren.":g 
1872 ifkK$C1)="#"andk$(2)="*"th oto 1530 <mi> 
en1249 <pn> 1448 printchr$( 147) :printleft$ 
1888 ifk$(2) ="#"then1112 <ed> (qd$,6) <pj> 
1898 ifk$(2)<"1"ork$l2)>"6"and 1458 print" "rn$;d$(lT);rf$" ha 
k$( 2)<>"*"then194A0 <jh> t mit";t;" punkten gewonnen !! 
1188 if olval(lk$(2))+6) <>@then 2. <en> 
ı84 <gd> 1468 printc4$" "rn$d$(2) ;rf$" 
118 ifk$( 1)<>"#"thengosub177® <kl> hat";a;" punkte erreicht. ": got 
128 ifk$(2)<>"#"thengosub1878 <Ih> 0o 1530 <nk> 


72 


= Tee 


1498 printchr${ 147) :printleft$ 
.4d$,6) 
1480 print" 


<bh> 
"rn$;d$( 2] 
punkten gewonnen 


:rf$" ha 
Er 


E met" 534" 
1498 printc4a$" 
hat";t;" 
to 1538 
1588 rem 
1518 rem 
1528 rem HHtspirstsraes 
1538 restore1588:volB 
1548 do 

1558 readx,y 


"RHIECH 1IEFFE" 
punkte erreicht.":go 


156B sound1,x,y:vol®:fort=1t04 
:nextt:volB <jo> 
1578 loop. until x=® <ek> 
1580 dataS96,8,571,8,516,8,453 
,85:,383,8,2343,0,262,8,169,8 <pg> 
1590 data810,8,798,8,770,8,739 
„B.,704:,.8.,685,.8.,643,.8.,.596,8 <be> 
1608 data917,8,911,8,897,8,881 
‚8,864,8,854,8,834,8,818,8 <bn> 
1618 dsta810,8,834,8,854,8,864 
.8..881,8,897,8,911,8,917,8 <ch> 
1628 datae596,8,643,8,685,8,784 
,‚8,739,8,770,8,798,8,810,8 <dce> 
16380 data169,8,262,8,345,8,383 
.05,.458,,8,9716,8B,:571.,.8,596,8,0,0 
‚2,08,08,8,0,2 <ai> 
1648 rem * HRSBORSSSABIHESSETR <gp> 
16528 rem 

1668 rem + RER 

1678 char1,8,28,rn$+"noch ein 
spiel( J/n) ?"+rf$ <k1> 
16880 getkeya$ 312 
1698 ifa$="j"thenprintes$"p":g 
oto882 <11> 
1788 ifs$="n"thenvolß:sound1,6 
908,6:g0t017282 <ıh> 
17180 ifaß=-<>""thenvolß:sound], 
690,6:g0t01688 <lm> 


1728 poke1344,128:poke1351,8:p 
rintchr$t 1472) »:cohlord ‚„2:celor4, 
7.9 


173@ end 

1748 rem SARA SEAT AR SE SF SE SET REST 

1758 rem kartenroutine 

1768 rem ** rate este <oh> 
1778 xx=vallk$( 1)) Oxyaaxıyy=13 <ki> 
1788 h=alxy)-1:k=int(h/8) :t=h- 
k*#8:k=-k+ti:tst+tl <kl> 
1798 kK$=mid$le$,Kk,1):t$=rf$et) <pa> 
1808 ol xy)=elt) :g$=k$+t$rkt <pn> 
1818 printhe$:printleft$(gd$,2 
+int((xx-1)/2)*6) <le> 
1828 sp=( yy+lxx<>intlxx/2)#2)* 

5) <no> 


1838 printspc(sp);g$ <no> 
1840 printspofsp et <el> 
1858 printspce(sp);" = <ff> 
1860 printspe(sp);g$:return <me> 
18708 xx=vallk$l2)) :xySarxtb:yys 

28 <pe> 
18558 goto 1788 <13i> 
1898 .rem nachspann =========== <db> 
1908 rem farbcodes/steuercodes <aa> 
1918 c4$=chr$( 817) :rn$=chr&%( 81 

8) <nl> 
1928 he$=chr$(B191:c3$=chr$( 92 

9) i <nf> 
19380 bk$=chr$( 144) :rf$=chr$( 14 

6) <aa> 
1948 cy$=chr$( 159) :es$=chr$( 27 

) <on> 
958 rem zeichensatz/graphik <nl> 
1960 z5$=chr$( 166) :ym$=chr$( 21 

9) <dd> 
1978 rem #####st% zeichenfolgen <cp> 
1980 Tor q=-1:-t0 48 <ia> 
19980 qd$=qd$+c4A4$:gr$=gr$+c3H <pe> 
e0BQO next q E <kk> 
eO1I8 return <gp> 
2828 rem ====-- == 7 == == == ====== chl> 
2830 rem 12277 bytes memory <oh> 
2048 rem 86684 bytes program <df> 
2058 rem 09218 bytes variables <km> 
2060 rem BO336 bytes arrays <pi> 
2878 rem BB5QB bytes strings <fd> 
20858 rem 84547 bytes fre(B) <ka> 
2UIR: Dem Freien sseene mes 
2188 rem bitte blanks statt <io> 
2118 rem punkte in folgenen <jb> 
2128 rem zeilen setzen: <1.3? 
21380 rem 299-3009,578-599,6882 <ji> 
2148 rem 888,9B8-928,1159,184Q <am> 
2158 rem 1858 ; <ml> 
21I6B rem =====-=- ==. =  . -..2=2=2=== <ai> 
KERZE TERN 
NICH INC NH LOCH III NRZ) 
ANANHNTNTENEN, 
FUND Ne Den Ne An A 


kirchlichen Hilfswerke 
nehmen ihren Auftrag ernst. 


Deutscher Caritasverband Konto 202 
Postgıro Karlsruhe ader Banken 
und Sparkassen. N 


er 


Diakonisches Werk Konto 502. 
Posıgıro Stuttgart oder Banken und 


Sparkassen, - = 
+ Kennwort »NOT-IN AFRIKA = 
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18 rem 17 und 4 ===========016 
2® rem (p) 7/87 commodore welt 
30 rem =====-==-=-==-=-.=-=-===2==2==-0-== 
408 rem (c) 1987 by 

58 rem wolfgang breiderhoff 
62 rem 

72 rem basic v3.5 

88 rem c16/116/plusäd 

98 rem ============-==- === === === 


188 gosub 2348 

110 vol 8:color®,11,6:color4,1! 
1 

128 dim w( 32) ,a$( 32) 
( 32) ‚we( 32) 

130 .c$="":fori=- 1t0o39sc$=cH+" " 
next 

148 trap 2212 

158 scncelr 

168 gosub 1760:x=6 

170: ENERT, x, Tg, "RR" 

180 getkey fr$:sound1,596,5:so 
und2,685,5 

190 ebarl,2x,19,7T 


„REhl32) x 


2euB if Fr$=c3$then x=x+6 

e1d if Fr$=c1$then x=x-6 

220 if x<öthen x=6:if x=>3Qdthe 
n x=3® 

2380 if x>30then x=38 


248 an=x/6:color1,an+1,5 

e5®ß if fr$=chr$( 13)then sound! 
‚396,32:sound2), 453, 30:20t02782 
178 

=, 


30 char1,8,23,"name des "+str 


3 N MW MN 
D 


(i)J+".spielers:":inputnaßli) 
299 char 1,0, 23,08 
322 sound1,810, 18:sound1,854,1 


2:sound1,881, 19:sound1,917,38 
318 kali)=28 
328 next i 
338 cwelör 1,7,:5:8Jchelr e 
348 print"der c 16 haselt das b 
sch, LI! "print 
358 print"setzen sie mit > + & 
oder mit" 
ION ET EDEN een Een 
.> p < auf den ganzen pott" 
28 print sprint"dte Fü, 2 
und 5 bilder gewinnen" 


g9se 


c 


339 printsprint"sofert HE" 

398 print:print:print 
BARBRTAnT. 3.0.8 Su viel ver 
gnuegen !!!" 

4 getkey fr$ 


h 


u I 


[2) 
8 gosub 459 


vol.8:601l0orQ, 11,63coloer#,1 


568 


goto 


450 char, 18,24,rn$+"ich mische 
IEr® 

468 for i=1 to 32 

478 sound 3,7800,2:sound 1,588, 

2 

480 x=int(rnd( 1) #32) +1 

498 for j=1 to i-1 

S5aRB if wÜ j)=x then 438 

SI@ next j 

520 w(i)=x 

538 nexti:pp$=bk$+"X"+bkd+"A"+ 

re$+"S5"+re$+"2" 

548 for j=® to 3:restore 65®%:b 

$=mid$(pp$, j*2+1,2) 

>58 for i=1 to 8 

568 read a$,x:u=s8*j+ti:aßlu)=b 

$+ta$:x(u)=x 

578 sound 3,7908,2:sound 1,528, 

2 

588 next i:nextj 

598 for iel To 32 

600 sound 3,799,2:sound 1,588, 

2 

610 ka$(w(i))=a$ß(li):we(lw(li))=x 

(i) 

628 next i 

53% Böolor 1,1 

5408 printc2$rf$ :char,Q,24,c$: 

return 

659 datsa,11,k,4,d,3,b,2,z,18®, 

9,9,8,8,7,7 

660 z=1:p=1B:S=1 

678 printhe$he$col$:ws=®:wce=ßB:s 

p=-d:ze=4:zz=1 

580 char,8,8,na$(s):print,"kap 

ital:"Kkals) 

698 char,25,4,rn$+"pott:"+rf$+ 

str$(p) :char,QA,1,"" 

7080 if kr(s)<=® then 748 

718 if kals)>kr(s)thenchar,8,4 
‚fl$+"kreditrueekzahlung: "+fo$ 

+str$(kr(s)) 

728 if kals)>kr(s) thenforwas=! 

t0o20809:nextwa:kals)=kals)-kr(s 

):kr(s)=@:g0t0678 

738 if kr(s)>®then SHARE; N, T;"K 

redit:"tstr$(kr(s}) 

740 if kals)<=® then goto 169 

a 

758 print:print"EEEEEEEFEFEEEEE 

EEEEEEEEEEEEEEEEEEEEEEEEE":pri 

ntehr$l. 27) #"t" 

280 

7780 if z=32 then gosub 1258 

780 gosub 1599:gosub 2198 

790 ws=ws+twe(Z) :z=z+1:sp=sp+4: 

e=-d 

832R char, 25,5,f1$+rn$+"einsatz 
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"+rf$+fo$+str$(e) 
810 getkey fr$:sound1,596,5:so 


und2, 704,5 

820 if fr$="+"ande<p then e=e+t 
1 

838 if fr$=chrf$( 13) then 998 
848 if fr$="p" then e=p:goto 9 
98 

358 if e=p then 878 

868 goto 822 

878 if e=® then A908 

888 char, 25,5,rn$+"einsatz"*+rf 


$+str$(e) 

898 gosub 1218 

902 if ws=21 then 1498 

918 if ws>21 then 1490 

928 char,®,17,rn$+fl$+"karte ( 
3/n) ?"+rf$+Ffo$ 

9382 getkey fr$ 

if fr$="n" then 1858 

if fr$="+"then 890° 

if fr$="p" then e=p:goto 9 
if fr$="j" then 998 
goto 938 ; 
998 if z=32 then gosub 12582 
1888 char,25,5,rn$+"einsatz"*+r 
f$+str$(e) 

1818 gosub 159%:gosuh 2180 
1a28 ws=ws+twe(l zZ) 'z=z+1:sp=sp+4 
1838 goto 898 

1048 

1858 rem *** computer zieht 
1860 char,®,17,c$ 

1078 if z=32 then gosub1352 
12880 char,@2,22,"jetz kommen me 
ine KUN" : 
1898 sp=®:ze=11:zz=1 

1108 ifz=32then gosuhb 1358 

1110 gosub 1598:sound1,810,5:s 
ound1,596, 18:sound2, 739,18 


1122 wc=wc+we( z) :sp=sp+4:z=z+1 
1130 for wa=1 to 18®8%:next wa 
1148 gosub 1218 

1158 if wc=21 then 14820 

1168 if wc>21 then 1498 

1178 if we<ws and wc<=17 then 
1188 

1188 if wc=>ws then char,®8,23, 


vn 


008 
1198 if wc=>i18then if wc>wsthe 


:printwc+1" zieht !":goto 14 


n14B2@:elseifwce<swsthen 1498 
ı200 

1218 w( zz) =welz) 

1228 if zz=2 and w(1)=11andw(? 
=11 then ws=21:g0t01498 


1238 ff=-1:fori=1t05:ff=ffandw 


<Ccö? 
<gh> 


<fe> 
<pp?> 


<c"}> 
<en?> 
<ia> 
<fk> 


<kn> 
<mo> 
<eg> 
<seg> 


<ea> 
<pl> 
<kh> 
<ga> 


<kd> 
<in> 
<pm> 
<nj? 


<cf> 


<nl> 


<ib> 
<de> 
<eo> 
<hco> 
<I> 
cl > 


<en> 
<ij> 
<ej? 


<ef> 
<mg> 
<cJ> 
<mj?> 
<ci> 
<dk> 


<jh> 


<gp> 
<de> 
<00> 


<bd> 


<bl> 


(i)<S:next:ifffandzz=Sthenws=? 
1:g80t01498 

1248 zz=zz+ti:return 

1250 rem *#*### buch vende 
1268 char,8,23,rn$+"das buch i 
st zu ende !"+rf$ 

1278 char,®,24,rn$+f1l$+"neue k 
arten (j/n) ?"+rf$+fo$ 

1280 getkey fr$ 
1298 if fr$="n" 
338 

1388 if fr$="j" 
:z=1:g0t01328 
131@ goto 12808 
1320 for c1l=4t015:char,®,cl,ri 
eht$lc$,24) :nextcl 

1330 char,2,23,c$ 

1348 cher,Q,24,c$:gosub45®:ret 
urn } 

1358 char ,8,23,rn$+"das buch i 
st zu ende !"+rf$ 

1368 gosub 458:wc=t 

1878 for el=-11 9 24 

138% char, d,cl,c$inext 61 

1398 zz=1:sp=®:z=1:return 

1488 rem ** spieler verliert * 
1418 for so=-238tolstep-28 

1428 sound!,758+so,5 

14308 next so 

1448 char ,8,24,rn$+"zahlen mac 
ht frieden II!" FFS$ 

1458 kals)=kals)-e:p=p+e 

1460 s=s+t1:if s>an then s>=1I 
1478 for wa=1 to 28BB:next wa 
1488 goto 678 

1498 rem ** spieler gewinnt *# 
1588 for so=1 to 3 

1518 sound1,596, 18:sound1,784, 
38:sound2,770,38 

1528 nextso 

1538 cher ,QB,24,rn$+"sie haben 
gewonnen !"+rf$ 

1548 kals)=kals)+te:p=p-e 

1558 if p<=® then p=12 

1560 s=s+1:if s>an then s=1 
15782 for wa=1 to 288%:next wa 
1588 g0t0678 

1598 chari,sp,ze, 
EEEET" : 
1688 fori=-1to9:chari,sp,ze#+i,r 
NIEHWRBF TE aaa H":next 

1618 chari,sp,ze+18,rn$+wh$+"J 
BESBEBERK" 

1628 printrf$ 

1638 chari,sp+t1i,ze+1,ka$(z) 


zu. 
Di 


then z=1:goto1 


then ws=Q:sp=® 


rn$+wh$+"UCCE 


1648 chari,sp+ti,ze+t9 ‚kaß$l(z) 
1658 chari,sp+6,ze+9 ‚kaß(z) 
1668 chari,sp+3,ze+5 ,‚kaß(z) 


75 


« 
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1678 chari,sp+6,ze+1 
1688 color1i,1:return 
1698 print:print"ich befuercht 
e, sie Brauchen kredit 1!" 

1708 print:print"wieviel moech 
ten sie ?" 

1218 pränt:print: input Kr 

1728 kr(s)=kr(s)+kr: kals)=kals 
)+tkr 

1230 Brinek:print"gut 1 .,sie 
ulden mir jetzt’ "kr(s)" $ 
1748 for wa=1 to 2888:next wa 
175@ goto = 

1769, color ,1:colara, 1;eolor], 
6, ‚6: BEInE LARA, iraearkeaee 


‚ka$(z) 


sch 


2. Lan 


112, 
print"EEEEEEEFEEEEEEEEEEEEE 
EEFBEBEFFEFEEEEFEEEEE":; 
1860 prinfN..: written by w.: 
nzius-breiderhoff" 

1878 print""RRARARRAARAARAARARARARAR 
ARRRRRRARARRARRARARAARARAR" 

1888 color 1,3,4:g0osub 1998 
389% prine"; .. »VEBEE-ÜCBETsUER 
ETL.UGEET „UGCET" 


ma 


1900 Prinf®. 0, OHR 
.H.6Q8. .H.6QQQH" 

910 DEINEN. 2:28: 00H BR. OH SE; 
QH.CQ..H.GQQ.H" { 

19208 print". ."FLE"p"Lo8t..B9.QH 
FIVE" L FOR: 


1938 print"G..GH"fF1$"a"rfog"G.Q 
.H"FIH"YYFOB"CAR.H"FIH"e"Fo$"G 


-QH."fF1$"r"fFoß 

1948 print".. :96s8.89.H.6: 
9H.C9Q0H.G..QH" 

1958 print"... .6:.QH.EAAAH; 6aQR 


6.8.H.G9Q8.H" 
969 print"... JECCK. 
ER SIEGER .JCCCK" 
1978 color1,2 
9388 return 
1998 restore 2858 


JCECCK .JCC 


” 


28982 


2188 
2118 
2128 
2130 
2148 
2158 
2168 
2178 
2180 
2198 
2200 
2218 


read a,b 

it a°8-| then color4,1:ret 
sound: 1,8%,.5#3 

goto 2082 

data 345,5,453,5,488,4,51 
data 571,5,596,198,516,5,5 
‚o96.,.5 

dats 704,5,685,5,516, 10,5 


‚685,5,6585,5 
data 655, 15, 643,6,596,5,8 
516,5,80,2.5,516,4,0,3,516 


data-1,2 

vol8 
sound3,8,3 
for x=8 to 1 
volx 

for so=3 t0o 5 
d=s0*9+198 
sound 1,d,3 
sound 2,d+1,3 
next so,x z 
vold:for i=1 to 58: 
volö:return 

char ,®,24,rn$+"wirklich b 


step -1 


nexti 


eenden ( j/n)?"+rf$ 


2228 
2238 


4,0c$: 


22408 
2258 
3 8 
$ 

22682 


getkey fr$ 
a le 2 a6 3 u 
resume next 
scenelr:color®, 1:color4,1 
PPENEPN$BILSB" .. . .. >>>, 
ee 2 Be: our - u 


then -char,8,2 


print:print"EEEEEEEEEEEEE 


EEEEEEEEEEEEEEEEFEEEEEEEEEE" 


2270 
2288 
22908 
2308 


For iei to 59 
kali)=kali)-kr(i)-28 
printna$(i),ka(li):print 
next i:end 

rem nachspann=========== 
rem farbcodes/steuercodes 
wh$=chr$( 8805) :rn$=chr$( 81 


he$=chr$( 819) :re$=chr$( 82 


©3$=chr$( 829) :b1$=chr$( 03 
F1l$=chr$( 130) :Foß=chräl 13 
bk$=chr$( 144) :02$=chr$( 14 
rf$=chr$( 146) :c1$=chr$( 14 


c1$=chr$( 157) 


SIEBZEHN Em viert LISTING 


FIRE- 
COPTER IM 


KATASTRO- 
PHEN- 


2438 rem 12277 bytes memory 
2448 rem 86454 bytes program 
2458 rem 808252 bytes variables <ed> 


2468 rem 00892 bytes arrays <js> 
2478 rem 809758 bytes strings <ol> 
2488 rem 083929 bytes fre(B) <de> 


2588 rem bitte blanks statt <bp> 

2518 rem punkte in folgenden <ag> GEBIET 

2528 rem zeilen setzen: <ek> 

2538 rem 368,400, 1000 | <mg> Blutigrot ist der Himmel vom Widerschein glühen- 
2548 rem 1769-1960,2258 <ee> | der Lavamassen. Gewaltige Eruptionen lassen die 
2558 rem ===================== <ip> || Erde erbeben. Mitten in diesem Inferno steckt eine 


Person. Die ungefähre Position ist bekannt. Mit dem 
Hubschrauber starten Sie zu einem wahren Himmel- 
fahrtskommando. 

Im weitern Umfeld eines Vulkans ist es zum Aus- 
bruch von mehreren Nebenkratern gekommen. Ihre’ 
Aufgabe ist es, diese Krater mit einem Spezialhub- 
schrauber zu löschen und eine vermißte Person zu 

® S265 | retten. In der von oben dargestellten Landschaft sind 
IT, NE die Höhenunterschiede durch Helligkeitsabstufungen 
[or dargestellt (hell = hoch/dunkel = tief). Die Ausbruch- 
stellen der Krater sind rot gekennzeichnet. Die vier 
Eckfelder sind Landeplätze. 

Ihr Hubschrauber ist im rechten Bildschirmteil von 
der Seite im Verhältnis zur Bodenhöhe zu sehen und 
auf der Landschaft als blinkender Stern abgebildet. 
Die Anzeige im unteren Bildschirmteil stellt folgende 
Werte dar: 


N 
= 
I 
7 
A 
„5 
» 
u 
ES 
22 
> 


L/R 
O/U 
FG 


TA 
LF 
PER 
M/P 


COMMODORE WELT om = 
HOTLINE aa 
Mittwochs 

15.00 - 19.00 Uhr 


Fire = 
Fire + vorn = 


Links (Minuswerte)/Rechts (Pluswerte) 
Oben (Minuswerte)/ Unten (Pluswerte) 
Fallgeschwindigkeit (Steigflug = Minus- 
werte / Sinkflug = Pluswerte) 
Tankfüllung 

Füllung an Löschflüssigkeit 

Anzahl der geretteten Personen 
Koordinaten der vermißten Person 


Die Steuerung erfolgt über Port 1: 
Li = 


Fire-Copter bewegt sich auf der Karte 
nach links 

Fire-Copter bewegt sich auf der Karte 
nach rechts 

Fire-Copter bewegt sich auf der Karte 
nach oben 

Fire-Copter bewegt sich auf der Karte 
nach unten 
Schubkraft (Fire-Copter fliegt hoch) 
Löschen 


Der Spielverlauf: 
Der Fire-Copter startet immer automatisch. Um 
den Fire-Copter in der Luft zu halten, muß die 


Schwerkraft durch Schub kontinuierlich überwun- 
den werden. Je weniger Löschflüssigkeit der Fire- 
Copter mit sich führt, umso weniger Schub ist erfor- 
4 derlich. Bei der Beschleunigung in die jeweiligen Rich- 
tungen muß speziell auf die Trägheit des Fire-Copters 
geachtet werden. : 
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Eine Landung ist innerhalb des gesamten Spielfel- 
des möglich, wenn L/R und O/U auf Null stehen und 
wenn bei Bodenkontakt die Sinkgeschwindigkeit +8 
nicht überschreitet. Innerhalb der Landefelder 
(Ecken) erfolgt eine Auffüllung der Löschflüssigkeit 
und das Abladen von geretteten Personen. 

Die vermißte Person befindet sich in umittelbarer 
Nähe der angegebenen Koordination. Sobald Sie den 
genauen Sektor erwischt haben und gut gelandet sind, 
steigt die Person aus ihrem Versteck und klettert in 
den Fire-Copter. 

Zum Löschen der Krater müssen Sie das betreffen- 
de Feld vorsichtig und mit möglichst großer Boden- 
distanz anfliegen. Ist der Krater erreicht, schießt von 
unten her Feuer zu Ihnen herauf, wobei Sie möglichst 
schnell löschen sollten. Sobald die Löschflüssigkeit 
den Boden erreicht hat, können Sie den Löschvorgang 
abbrechen, um nicht zuviel Flüssigkeit zu verlieren. 
Wenn der Löschvorgang abgebrochen wurde, ohne 
daß der Boden erreicht wurde, fressen sich die Flam- 
men weiter nach oben. 

Wenn die vermißte Person gerettet und alle Krater 
gelöscht wurden, müssen Sie auf einem Landefeld 
(Ecke) landen, um in die nächste Runde zu gelangen, 
wo schwierigere Bedingungen (mehr Krater) auf Sie 
warten.’ 

Ihr Auftrag wird abgebrochen: 

— Bei Verlassen des Spielfeldes (Landschaft) 

— Bei Höhenüberschreitung 

— Bei zu harter Landung oder Landung unter Fort 
bewegung 

— Bei Erfassen des Fire-Copters durch Kraterfeuer 

— Bei Treibstoffmangel 


Variablenliste 

A,B,C,D = Universelle FOR-NEXT-Variablen 

BO = Bodenposition 

E = 

H = Horizontale Feldposition 

Hl = H uungerundet 

HZ = Zufallsvariable für horizontale Krater- 
position 

K% = Spielfeld 

KR = Anzahl der Kraterlöschungen 

KS = Summe der Krater 

LA = RESTORE-Umschalter 

N = 

P1 = Aktuelle Personenzahl 

P2 = Summe der geretteten Personen 

3 = Horizontale M/P-Position (Rettungsko- 
ordinaten) 

P4 = Vertikale M/P-Position 

P5 = Markierung für abgeladene Person 

RU = Rundenbegrenzung / Anzahl der Krater 

Ss = Position,der Fire-Copter-Abb. seitl. 

sl = S Ungerundet 

SC = Schubeinheit 

sP = Sprit 

TI = Rate L/R 

T2 = Rate O/U 

T3 = Rate FG 

US = Begründung für Spielabbruch 


V = Vertikale Feldposition 

vi = V ungerundet ' 

VZ = Zufallsvariable für vertikale Kraterposi- 
tion 

VU = Markierung für Vulkanfeld 

W = 


Füllung an Löschflüssigkeit 


PROGRAMMBESCHREIBUNG 


Durch Abruf des Unterprogrammes 1590 - 1870 in 
Zeile 120 werden die USR-Zeichen erzeugt, wonach 
in Zeile 130 die wichtigsten Variablen definiert wer- 
den. Die Zeilen 140 - 190 dienen zur Erzeugung des 
Titelbildes. 

Die Festlegung des Spielfeldes wird im Unterpro- 
gramm 1080 - 1410, die Spielfelddarstellung und 
die Auslosung der Vulkanfelder in den Unterpro- 
grammen 1420 - 1530, sowie 1540 - 1550 vorgenom- 
men (Zeile 190). In Zeile 200 werden weitere Variab- 
len festgelegt. Durch GOSUB 340 in Zeile 210 wird 
der Boden abgebildet und GOTO 580 in derselben 
Zeile läßt das Spiel beginnen. 

Zeile 580 stellt den Fire®Copter durch GOSUB 220 
auf der Karte dar. Im Falle eines Vulkanfeldes läßt 
Zeile 590 zu den entsprechenden Unterprogrammen 
verzweigen (GOSUB 230). 

Zeile 600 ermöglicht das Ablassen von Löschflüs- 
sigkeit, ohne daß ein Grund hierfür vorliegt (GOSUB 
360). 

Innerhalb der Zeilen 610 - 640 erfolgt die Joystick- 
abfrage hinsichtlich der vier Richtungen. In Zeile 
650 wird der Schub abgefragt. Die Zeilen 660 - 680 
begrenzen die Ergebnisse der Joystickabfragen auf 
ein Maximum. Die Zeile 690 rechnet die Joystick- 
abfragen auf die Darstellungsvariablen um. 

Innerhalb der Zeilen 710 - 740 wird ein Spielab- 
bruch im Falle einer Spielfeldüberschreitung herbei- 
geführt. 

Die Zeilen 750 - 790 aktualisieren die Darstellung 
des Bodens und des Fire-Copters. 

Die Zeile 800 ermittelt eine evtl. vorliegende Bo- 
denunterschreitung und verzweigt ggf. zur Zeile 
860. Im Falle einer Höhenüberschreitung erfolgt 
durch Zeile 810 ein Spielabbruch (GOTO 980). 
Die Darstellung und Ausgabe der Kontrollwerte über- 
nimmt Zeile 830. Falls kein Sprit mehr vorhanden ist, 
kommt es durch Zeile 840 ebenfalls zum Spielab- 
bruch. 

Die Zeile 850 läßt zum Schleifenanfang zurückkeh- 
ren (GOTO 580). 

Verzweigt das Programm in Zeile 590 (GOTO 
230), erfolgt zunächst eine Joystickabfrage (Zeile 
250) auf begründete Ausschüttung der Löschflüssig- 
keit. Der Löschvorgang kommt durch GOSUB 540 
zur Darstellung. Die Zeile 260 fragt ab, ob das Feuer 
den Copter erreicht hat und verzweigt ggf. zum Spiel- 
ende (GOTO 980). Hat die Löschflüssigkeit dagegen 
den Boden erlangt, so wird die Schleife mit GOTO 
290 verlassen. Innerhalb der Zeilen 290 - 320 erfolgt 
eine weitere Verringerung der Löschflüssigkeit, bis 
sich der Joystick in O-Stellung befindet (Zeile 290), 
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oder bis keine Löschflüssigkeit mehr vorhanden ist 
(Zeile 300). Der Löschvorgang wird in diesen Fällen 
beendet, indem ab Zeile 330 die vorhergehende 
Seitendarstellung erzeugt wird. Danach erfolgt der 
Rücksprung. Bei der Landung wird zunächst geprüft, 
ob sich der Copter bewegt (L/R oder O/U über 0) und 
ssf. zur Endroutine verzweigt (GOTO 980 in Zeile 
870). Die Zeilen 890 und 900 überprüfen die Position 
des Copters. darauf, ob. ein Landeplatz angeflogen 
wurde. Gggf. würde dann die Zeile 920 überprüfen, ob 
die vermißte Person gerettet wurde. Falls dies auch 
zutrifft, wird durch GOTO 950 die nächste Runde 
eingeleitet. 

Andernfalls, wie auch bei den Landungen außer- 
halb der Landeplätze, erfolgt in Zeile 940 der Neu- 
start (GOTO 580). 

Sollte sich der Copter auf der exakten Position 
der vermißten Person befinden, wird die Rettung 
in Zeile 930 dargestellt. 


LIED- 
HELFER 


Dieses Programm bietet die Möglichkeit, unbekann- 
te Lieder zu erlernen, falls man deren Noten besitzt, 
zudem hilft es beim Lesenlernen von Noten und er- 
leichtert das Komponieren von eigenen Stücken. 

Das Programm verfügt über eine anwender- 
freundliche Benutzerführung, die jedoch viel Spei- 
cherplatz verschlingt, eine Speicherplatzerweiterung 
ist daher zu empfehlen. 

Je nach verfügbarem Speicher variiert die Anzahl 
der spielbaren Noten. Ohne Erweiterung sind dies 74 
Noten, mit Erweiterung 1160. Das Programm besitzt 
eine Besonderheit, es löscht in der 16 KB-Version 
die nicht unbedingt nötigen Programmzeilen. Ohne 
Erweiterung müssen Sie auf das Titelbild des Program- 
mes verzichten. 

Sollten Sie einmal versehentlich das Programm ab- 
gebrochen haben, ohne vorher ihre eingegebenen 
Daten zu sichern, können Sie dieses noch nachträglich 
tun mit einem GOTO 750, denn auf diese Weise blei- 
ben Ihre Daten erhalten. 


Noten-Kurzlehrgang 

= Halteschleife: Sie kennzeichnet einen Ton, der 
schriftlich aufgeteilt ist, und ohne Unterbrechung 
gespielt werden muß. 

= Auflösungszeichen: Die Erhöhung (# = Kreuz) 
oder Erniedrigung (b), die von der Tonart her 
vorgeschrieben ist (Oben bei Yesterday F-Dur. 
Erniedrigter Ton ist B), wird für den folgenden 
Ton aufgehoben. 


C# =Cis Dies gilt für alle Töne 
Cb =Ces (B=Hb=Hes) 


id rem net 7 Zoe 
E28 rem (p) 7/87 commodore weit 
28 rem =*==-=serensernnsmenmennne 
AB rem (c) by peter,bergen 

SO rem hildesheim 

E&Ö rem 

20: rem bEsIe-V8 5 

ABB rem c16/i16/plusd 

98 rem =rerskssseeseuunneneeene 
188 poke55,8:poke56,56:clr:gos 
ub 1988 

i1B a=srndl -ti) 

128 gosub 15%8:colorß,1:color4, 
.scnelrwold 

12a dimk% 3, 18) e=stin=l:russ: 
la=2 

148 sconclr:forb=-3to34step&:for 
a 

158 colcore A AreHarE, b,a,zugr" 
ABC" ionare, ‚b,s#+te, SSEFE" wolore 
‚a,3:chare,b,a+2, "wre" 

160 er next :sounde, 100 
v1: MEXX ENT 

170 eoloari ,2rchöre,;, 18,8, fEL="F 
ire- coapter"+fo$:fors=seto2QRt: 
next 

186 scnelr’colore ,6:chare,12,8B 
‚Tl$+" bitte werten!"+foß$ 


198 voläd:color4,e:colorn,e:gos 
ub 1828: w=59:gosub14208:gosub 154 
(1) 


2088 t1=98:t2=8:t3=0:w=-58:5p=2BDd 
B:hlel:vle :h=1:!v-1:s1i=-1d:s5=10 
:so-1Q00:sc=.86 

218 bo=-15:g0sub349:gotu5838 

22 colore , 18,(Kk%Ch,v)+e) /2:ch 
are,h,v,rn$+" "+rfb:sounde, 298 
‚„.4:return 

230 b=s+te:vol5:a=bo 

24 gosubb6ß 

e5B ifioyf 1) =129andw>3thenw=ew- 
e:seo=sc+,.0B01:gosub5S4B:gosuh57B 


oe 


260 ifa<s+Z2thenvolä:u$=-"eine 3 
Kube BE einer gosuh349:go 
t 0982 

278 ifFb>bo-ethenkr=kr+i:g0ot029 
2) 

2R® a 
296 soundS3,n,A:ifjoy(l 1)=Atheng 
atazsrgd e 

308 ifw<sethengoto33® 

310 wsw-e:sc#sc+t.221:g0suh54d 
328 to: 

3398 tora=stetobc:chere ,34,3a,b4 
$:next 

348 color1,18,4:fora=bho+2t023:; 
chsre,34,a,rn$+bä$f*+rf$:next:vo 
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<cel > 
<pk> 
“CH? 
<bi> 
<jn> 
<mi> 
<cd> 
<ph> 
<ge> 


<pl> 
< 1» 


< 3 pP? 
<nn> 


<mu> 


<nm> 


<fdgd> 


<mk> 


Is 8 
2, 
ar 
Ww ArZ 


<hh> 
<ce? 
<bi> 


<af> 


<al> 


<nk> 
<ıf> 


<mg> 
<mn> 
ei? 
<gt> 


<bh> 


14 

s50 zeokorni za: 
":return 

369 colore,7?,5:forb=stetobo-e! 
gosub57?@:next:gotol29d 

378 colore,2:fora=21tosstep-e: 
share, 39,0,"HL. :chare, 35, 3 
JK":chare,35,a+2,b2$ 

388 next 

398 gosub528:u$="eine luftraum 


a en 

4880 vol?:colore,7,4:fora=s-eto 
ee ee 
+e,zv$+"ABOC" 

418_chare ,34,3a+2,"DEFG" :nexta: 
colore,3,4:sound3, 2932,58: forb= 
s+t2toa-2step-e 


chare, 34,24,"MMMM 


ate, 


4298 chare,34,b, :foro=seto 

DEN: een u een 

4380 u$="treibstoffmangel":retu 

rn / 

4408 gosub52B:u$="eine zu harte 
landung":return 

4580 colore, 18,4:chare,34,ho,rn 

$+b4$:chare ,34,bote,b4$+rrfäß:re 
turn 

460 colore,18,4:a=21 _ 

478 chare , 35,a,rn$+"Q":chare, 3 

5,ate, P';chare „SS,8#2," "#rf$ 
:g05 sub530 

458 ifs<stethenreturn 

490 s=B=-e:chare , 35, ea, rusr"O” ze 

hare,35,ate,"A":chare, Sa," 


"+rf$:g0sub5239 
588 ifa<sstethenretiurn 
518 a=a-e:g0oto47® 


52 vol?7:colore,3,4:sound3, 288 


‚sa:fora=s-etos+t2:chare ,34,a," 
####" next:vol4 

538 fort=-1to5@%:next:return 
540 colore , 2:schere,8,22,""rpri 
atusing"###" ;wscolore ,7,5:retu 
rn 

558 colore,2:chare, NOr22, SDR 
int;p2:return 

568 colore,3,2:chare, 34,a, "*#* 
*":return 

578 zolore,?,4:chare,34,b,"NNN 


N”":return 

588 zosub228 

59B ifvu=lthenvu=-d:gosuh23d 
8628 ifjoy( 1)=129thengosub368 
818 ifjoyl 1) =7khent 1=-t1-.03 
828 if joyl 1)=3thent 1=t1+.03 
638 ifjoy( 1) =5thent2=t2+.03 
848 ifjoy( 1)=1Ithent2=t2-.83 
658 ifjoy( 1) =128thent 3=t3-sc:s 
p=sp-5:sounde,e,.2 


<ho> 
<oi> 
<ib> 


<hh> 
<T.3> 


<ak> 
<po> 
<fk> 


<pl> 
<ah> 
<pj> 
<fb> 
<mi> 
<mn> 
<n]l> 
<oc> 


<mf> 


668 ift1>.:8thent1=.B8 

578 ift2>.8Bthent?=,8 

SAQ ift3<-.6thent3=-.6 

6932 h1=h1+t1:v1=-v1+t?:s1i=si+rt? 
:h=int(hi+.5) :v=eint(v1+.5) :8=i 
nt(s1+.5) :t3=t3+.092 


708 sp=sp-.? 

710 ifhse orv<etnengnsub3?B:%o 
t 09838 

728 ifh>3ßthenh=230:gosub22%:g0 
suh379:g0t0982 
7380 ifv>15thenv=15 
sub378:9g0t0988 
7am ifk%lh,v)=14thenvus! 
vJ=k%lh-e,v) 


:g0sub220:go 


:kACh, 


758 colore,2::chere,h,v,rn$+"* 
"ERS 

760 bo=24-k%Ch,v) 

7790 chaere,24,bo-2,bä4$:chare, 34 
‚no-e,b4} 

>80 colore,12,4:chare,34,bo,rn 
$+b4$:chare,34,bo+e,b4f+rf$:co 
lore,?7,4 

79328 SEE 34,s-2,b4$:chare, 34, 


ee ee re 


":chare,34,s+te,b4$+rf$ 

3802 ifs>bo- Dt keng gcto96Q 

Ai IRSEIthengoEun37n Argato9sa 
820 chare,?2,20,"" 


338 printusing"A#HAHR" ;intlt1*5 


0+.5) „inkl t2#589+.5) „int t37350+ 
Re en 

340 sp“ BEPRBESSHEATE ! goto93d 
358 ae 5Aag 

a5Q poke239,0 

870 ift1>.B20rt?!<-.820rt2>.9820 
rt2<-.Q2ort3>.2thengosub440:go 
to9AM 


830 g0osub452 

90 ifh=eorh=-3dthenguoto92ßBßi:els 
e3g30t0938 

39a2 ifv=-eorv=-15thengoto91d:els 
egotog23Q 

918 w=50:50=.96:p2=p2+rp] 
gusub542:ag0osub55A 

2320 ifkrerusndp5=ethenp5S=d:got 
o95® 

9238 ifh=sp3andvsp4thengosub4äßß: 
pl=e:p5=1:gosub552:p3=8:p4=B:c 
hare,24,28,b4$+b$ 


in1i=B: 


3948 gosub53Q:t1=n:t2=n:t3=t3-, 


ee 
958 senelricolore, 2: 6hare,2,8, 
rf$+"sie haben Ineen auftrag e 


rfolgreich" 
9368 print ,ce4$c3$"beendet. flie 
gen sie nun zu ihrem" :printc4$ 


03$"maechsten einsatzort!" 
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<no> 


FF IBE- OP TER 


s7eE fors=-1to2QBd:next:ks=mkstkr 


:ru=srut2:kr=dB:goto148 


980 scenelr:colore ‚&:chare,e,5, 


"der einsatz 
weit "bi 
998 printc4$;u$;" vorlag." 
1898@ colore,3,5:printco4$04$c4$ 
" ihre bisherigen leistungen: 
1818 printc4$" kreterloeschung 
en :";ks+tkr:print" gerettete 9 
ersonen:";p2 

182@ colore,6:printc4$cA$c4$" 
moechten sie dennoch den nsech 
sten" 
1838 printc4$" 


zn) 


wurde abgebrochen 


[2 


einsätz fliegen 
( 3=3ja/n=nein) ” 

18408 gets$ 

1859 ifa$="j"thenscnclr:kr=d:k 
s=0:p2=8:p1=8:g0t0180 

1860 ifs$="n"thennew 

108708 goto1D4U 

188Q iflsa=1thenrestore12?%: 
2Z:elserestore1128:le=-1 

1898 forb=eto15:fora=eto3ß: 
de:k% a,b)=c:next:next 

1188 fForb=-eto15S:fora=eto2ß: 
ore,18,(k%es,b)+te) /2:chare, 
‚en$+" "trf$enextınmext 

1112 return 
1129 data5S,4, 
a 


la= 


a5) 


’ 
2,6,2,8,9, 10,11, 


<om> 


<bi> 


<c3> 
<hk> 


<oh> 
<kf> 


<i> 
5% > 


<bp> 


<le» 
Mare 


<ba> 


<fh> 


<me> 


<cdk> 


„xshk> 


<1ib> 


v 


<a] 


<pm> 


10,10,10,9,8, 
‚5,6,7,8,9,108 


0 —- 
PSWNIO PU» 
ET el ie Sr ONE 
Born Ro» 

° on» 


WoW 


u.“ 
WW — N 


NN» 
PER 
De ee u 


aNıiıgo >n \) oo» 
We = mv I 
S S- 
N \ıD 
cr» »- 
OD» „ 
0- 8 Oi» 
nn) DW» 


= 


=D NM MW» 


S*» 
a» 
+» 


(iD » - 
ODPS-P-9SnGSJV©0nr na zz N 


DB» 


ER 


- 


Daun 80 m 


er» 
OO MO nn o00 Mm 
I» 
Oo» 


V0-0+* 
[)=“ 
U» 


”) 
2,6 


10,11,10,9,8,7, 
‚31,12,11,19 
0,11,12,11,18,9, 
‚9,18,11,10,9 


& Sr 
x 


VS 0.» 


<km> 


<ig> 


<ai> 


si 7> 


SID 


<th> 


<nc> 


<do> 


<kk> 


<bj> 


<nc> 


<ig> 


<mi> 


<kh> 


<od> 


> 


1428 colore,2:fora=nto24:chare 
33: HET LI EDISF EEE 
1438 chare,33,n,"ZMMMMZ":chare 
‚33,24,"ZMMMMZ" : 

1448 colore,6,4:fora=18to0?23:ch 


sre,e,a,rn$+bl$+rf$:next 
1450. Chare , 2; 19; DH + "IL /D’ +52 


"o/u"+b3$+"fg"+b3$+"ta ":chare 
‚2,20,left$(b1$,21) 


14568 colore ,5,5:chare,2,n,"a B 
2.80. DB. HR Em 8% 

14708” b=e:chare,n,2,"":foras=3to 
15step2:poke205,a:printusing"# 


":hrıb=b+te:rnext 
14880 colore,6,4:chare,2,22,b2$ 
+"1f:"+b63$+b3$+"per:"+b3$+B3$: 


gosuh548:g0suh55B2 
1299 gosub 1568 
1508 p3=hz:p4=vz 
1518 colore,6,4:chare,24,19,"” 
m/p ":chare, 24,28,b4$+b$:color 
e,2 
520 BFIinttP3/23+.5) +64 
530 chare,25,28,"":print;chr$ 
b) ;intl g4/2+.8) return 
548 fors=etoru:gosuh1562 
550 KAChHZ,VZ)=14:001lAre,3,3:cC 
hare,h2,Vv2z,An$#+" "rrfßi:nextire 
turn 


1568 hz=int(rnd(e) *27) +2 
t{rnd(le) *12) +2 

798 ifk%lhz,vz)=14ork%lhz-1,v 
z}=14thengoto156B 


ıv z=in 


107) 


588 return. 

1598 restore 1678: fora=832t0849 
:resdb:pokea,b:next 

1682 sys832:0.=1484? 

8138 readsa:ifa=-1Ithengoto164B 
628 co=c+1l:pokec,a 

8638 2goto1610 ’ 

548 d=-65288:poked+t19,peekl( d+1 
S}jsnd251 

558 poked+19,peek( d+19) and3or 
1658 return 

1678 dats162,08,189,0,208,157,08 
‚56, 189,9,209,157,0,57,292,298 
241,95 

688 data15,96 ,176;, 176,184, 185 
255,193 . 

1690. dsta285,, 3; 19,863, 1125 230,2 
38,247 

1788 datsa255,28,128,224,16,8,38 
Ei 


Ii8 dets192,9,2,8,08,8,9,192 


<ml> 


<nl> 


<pp> 


<fo> 


3? 


<ih> 


<oh> 


<nma> 


<gj? 
Gl $ 
<kh> 
<oo> 
a 


<a0> 


<pl> 
<ba> 


1729 


1,0 
1730 data255,0,255,255,254,254 
‚255,31 


1749 data?55,0,254,63,31,31,63 


255 > 

1750 data248,254,31,239,231,23 
0,232,8 

1768 


data ,.t,s 
1778 datal28,1 
24,224,224 
1700 data? ‚7,%, 15,3%4,29,2 
1798 data224,224,224,240,248,1 


3.3. .2,8,9 
8,1 1 


B4,24,8 

1800 data24,24,24,24,24,24,24, 
Da 

1810 data0,0,0,255,255,0,0,0 
1828 data136,170,34,0,136, 170, 
34,0 

1830 data2,50,5%,50,2,124,184, 
134 

184@ data184,128,184,76,68,72, 
76,192 


1859 dJdata12ß, 152; 
24,53,58 


1969 detas8', 2,56, 35,88, 38,108, 
2 

1898 dats-1 

13859 rem nachspann =========== 
1890 rem farbceodes/steuercodes 
1900 24$=chr$( 21?) :rn$=chr$( 91 
8) 


19198 c3$=chr$( 229) :fl3=chr$( 13 
2) 


928 FoB=chr$t 132) :rf$=chr$( 14 
5) 

19390 b$=" ":b2$=b$+h$:b3h=b?$+ 
bE:b4$=-53$+6b$ 

1948 b1$=b4$+h4$:bl$=h1$+hb1l$-+b 
ı$+b4$+b2$ % 
1359 rem # zeichensatz/graphik 
1968 zv$=chr$( 192) | 

1978 return 

1980 rem “===... en nun 
1290 rem 12277 bytes memory 
2808 rem 87658 bytes program 
2a1IQ rem 82848 bytes zeichen 
2028 rem 809273 bytes voriables 
29038 rem Q1IB821 bytes arrays 
048 rem 390399 bytes strings 
28580 rem 38598 bytes fre(®) 
e060 rem =========- === === ====== 


ING ET 


nr 
% 


Sr 
er 


= 


NEN 


S? 


"" RERERENENERNT 


Fred BbeL fen 


& rem liedheifer-r=-=-=-==-rr rg li 
2& rem (pp) 6/87 commodore welt 
232 rem ==sser-eesesernuenemmunn 
48 rem (cv) 4/87 bv 
Se rem alexander prietze 
E66 rem und michael frant 
78 rem basic v 3.5 

rem c16/116/plusä cass/dis 


rem 
Bd iffre(B) >Spaßdth 
BE xs$=chr$( 13) 


en13% 
E01 ‚ Zrschet 


14 
599990 


28 Keyl,'"delL-120"+x&+"deL518- 


FARO" Sr "deLF789-"Hahetrun”+x$ 
:pohe2035,8:5sys563&& end 


2628 
ga 


138 gosub 
140 scenclr 
Bpei 

15% colerd, 1,60} 
AR 


‚volö:op=2:ag=1 


or Ic art, 


168 mao$l 1)=-"diskette":mehi 2)=" 
Kassette" 

78 rem notenbezeichnungen 
168 dataa-,ais-,5-,h-.his-,ces 
‚e,eis,des,d.Wis,es,e,eis,fes, 

u > 

198 datages,g,gis,as,a,ais,b,h 
EEE "sa, 828. 
‚es’,e’ 


euR® datseis’,tes’,f’,fis’ 
ser Bias’ .a” „ais’,bf,h!,his 
‚cest,c+,cis+t,dest+t ; 
21B datad+,dis+t,es+t,e+t,eist+t,fe 
s+,f+,fist,gest,g+,gis+t,ast,ä*r 
‚eis+t,b+t,h+,his+t 


220 -dataces*,c*,cis*,des”,d*,d 
is*,es*®, FE le Pant. 1# Auer 
es! gi ‚pause 

e3E rem ##* hilfsdaten I * 


2 OD ıdı 
er 


re 
eL® 


mopOD 
SQ 


© . 
7,6,6,6,5,5,5 
Dan datod,4,4,3,3,.,2,2,2,7,1 


1,30,30,4® 


290 rem notenwerte Frrrr: 
200 Bata7,53:.1,83;, 118, T, 76594, 
118, 169, 218,1,218E , 282,304,1,3% 
4: 308.1, 38%, % 

318 dats345,383,418.1,418,453, 
4.85:.,1,485, 5716, 544.1,544,57%1.: 1 
596,1;,5%71,596 

329 dateb2R.1,6268, 43,664 1,88 
4.689.147 04..1,6865, 704, 722. 1,722 


A 


<cjm> 


<ıhl> 


<ab: 


23., #39... 789-1, 2758 

SER 3eta778, 284, 1.784, 2828.1,83 
8.1,79 2, B22.1, 822, 834,844 
ee aa. a SL: “, 

340 dataßsa. 864,8723.1,872,8B1, 
888.. 1,.889:, 897, 994.7,9094,934 771, 
9 


" notenlsengen FHFFR 
8 datage,he,vl,al,sl,zl,pge, 
‚pvl,pal,psl,pause 
rem nhilfs RABEN 
BEE = RR = RE N AR 


Sr 3 
dats1,8.5,8.2 
„asızs, a 
.R9375 
rem 
2 Jima$le RE) 
m) ınext 
436 dimaal83)} 
alm):next 

450 gimbki 83) 
b{m) :next 


» einlesen 
SFORNSTEOBSEr 


:form=-I1toßSs:reads 


:form=-1to83:readb 


äbd dimagpl 12): Forn=itotz2:resdd 
${n) :next 

478 dimczc( 12) :forn=1tol2:reade 
c{n) next 

488 dimeei 12) :forn=1tol?:reade 
ein) :next 

498 iffre( a) <Sßdßthenzg=?7 


’3:els 
ezq=-1159 - 
see dimob(”T 3 zg) 
SI® BEint"VÜELCERECETEEBETLEREGE 
BECECEREESERGEERTE 
528 print"BUI UI"zFE"COI"zrfR" 
SEIUIUI *2RR"CEIHi zTS"OCCI"zF 
SIERT" ZFEtDEIE" 

538 print"BBE BBB"zrh"CcKB"zrg 
"IBBBBBB"zF$"CKBEB B"zf$"CKkB"z 
FRTCKB"ZFR"IBB" 


8 " 


548 print"BEB BBEB. BEB IBBEBBR 
B Ba BB BB BBEBB" 
558 prirt"üBB BBER BBEBBBRRB 


ne] 


ay8) BB BE BBEHBR" 

68 print"BBB  BEB"zc:! 
"rc$zsß"Ba”ze®"CIBB 
"zeg"DIe"zes"KkBB" 

578 print"BBB BEBS"zFE"CKBBERBB 
"ZrgZdR"BB"ZFR"CHER B"zfF$"CKB 
"ZTS"CKB"ZEFRZIE"KB" 
582 print"BBB EBHB BBRBEBBEB 
Ba BB BE BB BB"zA4$zAaR"RB" 
5%& print"EEB . BBBB BBBEBEBEBE 
[@) AD BB BB BBGGB" 


$"CIBBBHR 
8"zc$"CIB 


En eu 


83 


<sno> 


<gd> 


<md> 


3.12 


<bd> 


LTITEDHELFER 


689880 print"BE"”ze$"C[BBB"zcec$"TCIB 
"zc$"KBEBBBBB"zc$"CIB"zch"GIEB 
B"zc$"CIBBBBB" 
818. HEINE”B"ZESERERIK"ZÄER"EcK" 
zo$  CCKJKJIK"zZEH"CEK"zZoc$"CEKyYK 
"Zch"EcKUKkuUKke" 
629 Print. IECELECREERTEESBLESER 
CCECCECCECECGEGCEECK" : gosubä3d 
:gotodä48 
638 printrn$"VVVVVVVVVVVVVVVVV 
VVVVVVVVVVVVVVVVVVVVVVV"rfS$:re 
turn 
648 printrn$"VVVVVVV"rFB"UCOCC 
EESEECELERELECSECECELEST "rn" VVNVY 
VvV"rf$ 
658 printrn$"VVVVVVV"ErERE"B 
copyright by B"'rn$"VVVV 
VVvV"rf8$ i 
568 printrn$"VVVVVVV"rfE"B 
B"rn$"VVVV 
VVV"rf8 
678 printrn$"VVVVVVV"rf$"Balex 
ander michsaelB"rn$"VVVV 
VVV"rf$ 
658 printrn$"VVVVVVV"rf$"B 
and B"rn$"VVVV 
VYVIRTE 
698 printrn$"VVVVVVV"rf$"Bprie 
tzeil frank B"rn$"VVVV 
VvVvVv"rf$ 
788 printrn$"VVVVVVV"rfE"ICCCcE 
DEBGEEREBEGBEBEEBEEECK"FRETVVVV 
VVvV"rf$:g0sub638 
748 printrn$"VVVVVVVVVVVVV"'rf$ 
"UCCCCCECCECECECI"rnE"VVVVVVVVVV 
vvV"rf$ 


728 printrn$"VVVVVVVVVVVVV"rFS. 


"B<eleer-taste>B"rn$"VVVVVVVVVV 
vvv"rf$ 
738 printrn$g"VVVVVVVVVVVVV"rf$ 
"IJGEGEGECELECEK" rn$"VVVVVUVVVVV 
VvVvV"rf$ 
748 getkeyw$:ifw$=" "thengoto? 
S5Q:else?742 
758 printhe$he$cltco4804$tabl 8) 
PISGEEEEELEREBERERGSSCEET * 
752 printtab(8)"B "rn$®”m.- ie 
en. ou = setri" RE: goaub772: 
g0t0788 
7780 printtab(8)"B 

B":return 
780 printtabt IH"B’ra$" FI rs 
" anleitung B":905ub778 
290 printtade8) "B’rn$" T2 "rt 


eingabe B":g035u5778 
8298 printtsbl 8) "B"rn$" F3. "TER 
"  susgabe B":gosub?770 


812. printtabl 8) "B"rn$®-F4 "rf$ 


<ip> 


<ih> 


<dd> 


<bk> 


<k1> 


<mh> 


" massenspeicher:B":20sub??78: 
- 805ub772:805ub7%% 

s20 printteb(l8)"B"rn$” "TEE 

< laden B":g0osub”7?7& 


330 Brinttsbt BJ "B"rn$" Fb "os 
" speichern . B":gosuh?78 
848 printtab( 8) "B"rn$" #7 "rrg 
" beenden B" 


858 _DEINEE ABLE 8) "IEBEEGERERETEE 
CEECEECCEK" 


"868 forx=1to?:keyx,chr$( 132+x) 


84 


ınext:g0to33® 

878 getkeywl$:wl=asc{w1l$) 

388 ifwil<1320orwl>139then3?7® 
898 onwl-132g0t02478,12498,2288 
‚918,949, 1089,1170 


300 g0t0878 

318 ifga=-ithenop=1:gar3:g0t093 
RE 

228 ifga=3thenop=2:ga=1 

330 char,21,13,ma$( op) :g0t0878 

948 printcl$rn$" ı = 
are rar ern : 
:g0suL 959:g80t01212 

358 printygs$rn$" "ER 
zö$ 

968 print" "yy$rn$;ms$lop);rfß 
z8$ 

974 print" "yasrnp” "rf$ 
z8$ 

382 print" "yaSrn$" “rTBz 

88 

998 print” “"yva$rn$" “"rf$zB8 
$ 

10888 print" "ygq$rnßrfzäß: 
return 


1018 print:input”dateiname: "; 
fFl$:g05ub 1228 

1828 ifga=-1thenmo=2® 

1838 ifga=döthenfl$=fl$+",s;r": 
mo=2 j 
1048 
k 
108508 forx=®tozk:ifx>zgthenzk=sz 
k-1:g80t01978 

10868 input#1,ob( 1,x)::input#1,o 
5.2, x; next 

18780 close1:zl=-zk:g0t0243%8 
1888 printcl$rn$"” Ss = 29. 
ee ee er on Ser 
$:g05ub952 

19898 ifob( 1,8) =dthengoto2299 
1128 print:input"dateiname; "; 
fFl$:g0sub 1222 

11138 ifga=ithenmo=! 


openti,gs,mo,fl$:input#1,z 


120 ifga=-ßthenfl$=fF1$+",5,w": 
mo=2 
11390 opent,ga,mo,fl$:print#tl,z 


A 
oO 
a} 

v 


BereieLe ee 


‚140 Torx=dtozl 
1158 printz#1,obf 1, 
BE: OH 2)", Det 


a scokkinne 


"160" cv lose1:g0t02438 

11798 printel$rng" Bi ie 
SF ne a RT 
$ 


1180 char,3,9,"haben sie ihre 

eingegebenen daten" 

1198 char,9,11,."schon abgespei 

chert?":gosub1288:scnelr:end 
1288 cnar,3,i2,rn$+"wollen sie 
zurueck zum menue?t{ i/n)"+rfl 
1218 getkeyu$:ifuß="n"thenchar 
Er 


»-, 10, 


"Grefturt 


228 ifuf="i"thengota?75B 


1238 gatoi218 
1248 printcl$rn$" e: Be 
a se, ame "nF 


$ 

1258 printtab( 24) zFE"CCECECCEE 
GELEC"ZA$ 

1260 printtab( ?4) "RB"rn$"pausen 
inte ITTIHTE" 

1278 printtab[ 74) "B"rn$"noten! 
sengen: "rf$"B" 

1288 printtabl 24) za&$"CCECECCECCE 
GEBEC"ZI$ 

1298 printtab( 24) "Bganze="rnf" 
ge'rr$" a" 

1388 printtab( 24) "Bhaibe="rn$" 
he"rf$" B” 

1318 printtab( 24) "Bviertel="rn 
BEE ITER" RB" 

1328 vnrinttabl( 24) "Bachtel="rn$ 
"aLlırfR B" 

1338 printtab(24)"Bsechzehntel 
="rn$"si"rfg"B" 
1348 printtab( 24) 
a B" 

1350 printtab( 2d) "BEsichstel="r 
Az” EB 

1360 printtabl 24) ze$"CCpuni.tie 
rteCtC"zi$ 

378 printtab( 24) "B-ganze-"rnä 


"Bzweiund«drei 


"pge"'rf$" g." 
1368 printtab( 24) "B-halbe="rn& 
"phe"rf$" Et 


1398 printtab( 24) "B- 
ABRUFE IB 

1480 printtab( 24} "B-achtel="rn 
$"pal"rf$" B" 

1418 printtab( 24) "B-sechzehn- 

a" 

1428 printtabi ?4i "RB 
STYPERE ZERRECETE " ZI8 


viertel="r 


<mm> 


<ba> 


238 SELELBEE" 


330 printtab( 24 
ae EB" 

1430 
STrEGECE"ZIR 


+ 


printtab( 24) "Beingabe "za 


24) "Bmit""rn$"en 


1458 printtahb( 

de"rft"B a" 

1468 printtshb( 24) "Bbeenden!R 
B" 


1478 rinttat 
ze DRELL" 258 
forsc#-Btodstep? 


i48% 

1498 char, 14,2+3d," EBBE DEM 
ext 

15569 char, 14,8, zff+"SCCECEE"+zd 
& 

1518 char, 14,9,"B Br 

1528 forscd-dto4step? 

1530 char, 14, 1Q+s4J, zah+"CECETE 
"+Z58 ; 

154% char, 14,411=sd,"B Bm 
next 

1850 char 14,16 Ze$+ "TCECEE"F+Z 
s$ 

1568 fForsd=-dto4step2 

1870 char WA, 18r2d;5? BEebe’ 2» 
next 

1588 yz=-ß:form-Sßtoilstep-1i:yz 
syz#t1 

1598 ifyz=iIthenchar,®8,aalm), z& 


$:printa$(m) 

1688 ifyz=2thenchar,5.as(m) 
":printof(m) 

1618 ifyz=3thenchar,8,as{m),"B 
":prints$(lm) :char, 13,aalm) ,"B" 
ı yz=Bd 

i62B next 

1638 ifob( 1,8} =Bthengoto1!77% 
1648 sk=-B:goto212% 

1650 char ,89,24,rn$+"vor-/zuru 
eckblaetternA( +/-)"+rtfg+" 


" 


‚”B 


1668 getkeyts$:ifzk=-ßthengotoi 
590 

i6?% iftag-" "thenifzl<ezckthens 
=6:g0t017B8 
1688 ifta$=" 
k=&:g0t01782 
1698 ifta$=chr${ 13) thensk=4:go 
t 02788 ; 


123 


1788 ifta$="-"thenifzledthensk: 


=2:g0t02180 

1718 ifte$="-"thenifzls=zkthen 
sk=3:g0t01788% 

1728 ifta$=-"+"thenifzlszkthens 
k=2:806801782 

1738 ifzk=zgthengoto166B 

748 ifta$="+"thenifzl=zkthens 
k=ei:zl=-217r17 E00 770 


85 


"theniftzi=zitihens. 


« 


LEEDEHELrFER 


1758. ifta$="*"thensk=-?:g0t0173 
12) 

1760 g0t01668 

1770 char,34,19,str$(lzi+1}+" " 
1290 (Char 334281; b“ 

1290: char 34,22," y 

18880 ifgg=dthenchar, 22,22," " 


:g0t013948 

18182 ifgg=-30thenchar, 22,2." _" 
:g0t01848 

1828 ifgg=48thengotno1348 

18390 char, 22,qgqg," " 

1848 char,23,pp," " 


1858 ifsk=2thenzl=zl+1:sk=4:go 
to2128 
1868 ifsk=3thenzl=zl-1:s5k=4:g0 


to2128 

1878 ifsk=4thensk=5:g0to21%0 
1888 ifsk=-5thenzk=zk-1:z1l=zk:g 
0ot02128 

1898 ifsk=6thenforxs=zltozs-1:0 
BbL1,x)=-0b(1,x+1) :ob( 2,x)>=ob( 2, 
x+1):next:zk=zk-1:g0t02120 
1988 nw$="":le$="":char,80,24, 
rn$+"pause/notenbezeichnung:"*+ 
FES+" “ 

1918 char, 24,24,chr$( 27) +"t":i 
nputnw$ 

1928 ifnw$="ende"thenzl=zk:got 
0758 

1938 ifnw$=""thenifsk=4thengot 
01658 : 

1948 printhe$he$:char,88,24,rn 
$+"pausen-/notenlsenge:"+rf$+" 


r 


19590.-charn:21,2@4,chr$( 22) #+"t":i 
nputle$ 

1968 printhe$he$:ifle$="ende"t 
henzl=zk:9g0t0?758 

1978 ifle$=""thenifsk=4thengot 
01658 

1988 ifle$<>"pause"thengoto281 


) 

1998 ifzl=-2thengoto1922 

2028 ifob(2,z1-1)=-Bthengoto19% 
O . 

2018 forx=1t083 

2020 ifnw$=a$ß(lx)thenm=x:x=B4A:f 
1ag=1 
20308 next:ifflag<>iIthenflag=ß:; 
goto1988 


2848 fory=1t0o12 

2858 ifle$=d$(y)thenn=y:y=13:Ff 
lag=2 

2068 next:ifflag<>2thenflag=ß: 
2001988 

2878 ifsk=1thenzk>=zl 

28828 ifsk=4thengoto1782 


2298 ifsk=7thenforx=zktözlstep 
ENODL 5X) FEB I) Bl, en 

=0b(2,x) :next:zk=szk+l 

21839 cob( 1,z1)=bb(m) :ww$=a$(lm): 

gq=aalm) 

2118 ob(2,z1)=eafn) :vv$=dß(n): 


pp=cc(n) :goto21782 

2128 forx=1t0823 

2138 ifob( 1,z1)=bb(x)thenww$=a 
Sex) :gg=salxj) ıx=84 

2148 next:forx=1t012 

2158 ifob(2,zl)=eelx)thenvvs=sd 
$(x):pp=cc(x}):x=13 

21608 next 

2178 char,34,19,str$lzl+1)+" " 
2188 char,34,21,ww® 

2199 char, 34,22,vv$ 

228080 ifgg=dthenchar,22,22, "MN" 


:g0t02248 
ce21i® ifgq=3@thenchar,22,2,"NM" 
:g0t02248 


2228 ifgg=48thengoto2242 

223% char, 22,gq,"«" 

2240. char,23,pp, ">" 

2258 sound1,0b(1,zl) ,ob(2,z1)* 
128 


ifsk=4thengoto1!989 


2278 g0t01652 
2288 printcl$rn$" ss 
re = "nr 


2290 ifob( 1,80)=®thenchar,9,11, 

rn$+"keine daten vorhanden!"+r 

f$:g0t02439 

2308 char,®8,7,"geben sie fuer 

Jas sbspieltempo eine" 

2318 char,8,8,"zahl ein.(mitte 

12129): "“:inpuftte 

2328 ifte<s=-320orte-590then?288 

2330 forz=7to8:char,d,z," 
"smext 

2340 Forx=dtozl 

2358 ifob(2,x)=Bthenob( 2,x)=1: 

28002378 

2368 ob(2,x)=ob(?,x)*te 

2378 next:forx=2tozl 

2388 -sound1,0b(1,x) ,ob(2,x) :ne 

xt 

2390 forx=Btozl 

2489 ifob(l2,x)=1Ithenobl ?,x)=B: 

2002428 

2418 ob(2,x)=ob(2,x)/te 

2428 next 

2438 char, 13,21, "UCCCLCECCCCEE 

I" 

2448 char,13,2 

g" 


‚"B<leer-taste> 


Pre Deister 


2458 char, 13,23; WEEECEGECEGEE 
2460 getkeytaß:iftaß=" "thengo 
t075R:else246% 

2478 printel$rn$" al Ferne 
Zen TE Natel Zen erg "TE 


2488 print:printrn$"eingsbe:"r 
f$" bei der abfrage ’vor-/zuru 
BER" 

2498 print"blaettern?(+/-)’ fu 
ehrt die eingabe von:" 

2508-print print "=-"era$"r/m "rt 
" zum vor-/zurueckblaettern!" 
2518 print -"rn$" # trE$" „zum 

einfuegen. an der am bild-" 
2528 print" schirm sichtbaren 
stelle!" 

2538: print"-"rn®"<leer>"rf$" z 
um loeschen und die eing. von" 
2548 print" "rn$"enet urna "ef" 
zum moeglichen verbessern der 
2558 print" auf dem bildschirm 
sichtbaren daten!" 

2568 print:print"bei den ander 
en abfragen kann man mit:" 
2578 print:print"-"rn$"<return 
>"rf$" zur obigen abfrage gela 
ngen!" 

2588 print"-"rn$"ende"rf$" zum 
menue. gelangen!" 

2598 print"-"rn$"pause"rf$" be 
i der 1.a. eine pause und mit" 
26088 print" "rn$"pause"rf$" be 
i beiden eine unterbechung" 
2618 print" registrieren lasse 
Tu.h 7 

2622 print:printrn$"es sind bi 
s zu"rf$; zq+i;rn$"daten moegli 
ch"rf$:g0t02438 

2630 rem nachspann ====--=-- == 
26408 rem farbcodes/steuercodes 
2658 c4$=-chr$( 819) :rn$=chr${( 21 
8) 

2660 heg=-chr$( 819) ırf$=echräi 14 
6) 

2678 cl$=chr&i( 147) 

26880 rem * zeichensatz/graphik 
26998 zB$=chr$( 161) :z1$=chr&( 16 
2) 

2788 zA4E$=chr$( 165) :zB$=chr&{ 16 
9) 

2718 ze$=chr${f 171) :zc$=chrä#{( 17 
3) 

2928 zd$=chr$l 174) :zf$=chr$( 17 
6) 

2730 - ze$=chr$( 177) :zi$=chr$( 17 
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Do oO 0 


DNWNDITNTDIDRINDRPRDIPDINIR 


‚n 
SS SSH 9 SSSH 


DO Sn RWON - 


<eo> 
zs$=chr$( 189) :yq$=chr$( 22 

<ge> 
return  $ <fg> 
aa = er 
rem 69671 bytes memory <mp> 


rem 108615 bytes program <bh> 
rem 29231 bytes variables <jf> 


rem 18752 bytes arrays <oj? 
rem B&564 bytes strings <eg> 
rem 30289 bytes fre(®B) <ib> 
rem #==== 77 5 === === ==2==== cköj> 
rem 12277 bytes memory <bf> 
rem 83552 bytes program <fl> 
rem 00224 bytes variables <no> 
rem 82462 bytes arrays <ch> 
rem B2861 bytes strings <sik> 
rem 80598 bytes fre(®) <mn> 
rem -===-- 55-3 ===, 5 2258-2 <op> 


rem programm darf nur re- <dd> 
rem numbert werden, wenn <sei> 
rem die zeile 128 ent- <po> 
rem entsprechend gesen- <cg> 
rem dert wird, oder wenn <bd> 
rem es nur auf dem plus4 <ob> 
rem oder auf 16/116 mit <bf> 
rem erweiterung verwendet <ed> 


COMMODORE WELT 
HOTLINE 
Mittwochs 

15.00 - 19.00 Uhr 

Tel: (089) 129 80 8 


« 


°°-LISTING 


HANDELSREISE 


Schauplatz ist England im 18. Jahrhundert. Sie be- 
sitzen ein Handelschiff, jedoch auch einen Berg von 
Schulden. Wenn Sie eine glückliche Hand bei ihren 
Transaktionen haben, erwartet Sie das große Geld, 
ansonsten der Ruin. 

Ihr Schiff kann in fünf verschiedene Häfen einlau- 
fen, wo Sie Ihre Ware ein- und verkaufen können. Im 
Heimatort ‘“Swansee” haben Sie Ihr Bankkonto mit 
mehreren tausend Pfund Schulden aufgrund des 
Schiffkaufes. Um Ware zu kaufen, sollten Sie noch ei- 
nige tausend Pfund aufnehmen. Doch vergessen Sie 
nicht, je höher die Schulden, desto mehr wachsen die 
Zinsen. Bei 25.000 Pfund wird Ihr Schiff samt La- 
dung gepfändet. Wenn Sie genügend Gewinn gemacht 
haben, gilt es, schnellstens die Schulden zu tilgen. Sie 
leben vom Handel. Dieses bedeutet, Ware billig einzu- 
kaufen und woanders teuer verkaufen. Jedoch ist die- 
ses auch mit Risiko verbunden. Auf dem Meer lauern 
Piraten und Stürme, welche Ihnen Ihre Ladung ab- 
spenstig machen wollen. 

Schiffsreparaturen kosten Ihr Bargeld. Glücksspiele 
in Kneipen bringen Ihnen Gewinn oder Verlust. Je- 
doch gibt es auch günstige Gelegenheiten: Gönner 
zahlen für Sie einen Teil Ihrer Schulden. Handel mit 
fremden Schiffen bringt Ihnen ganz schön etwas ein, 
doch Vorsicht, es könnten auch Piraten sein. Sicher- 
heit vor ihnen haben Sie durch Black Jacks Kanone, 
doch dürfen Sie diesem ein ordentliches Sümmchen 
dafür berappen. Haben Sie es geschafft, sich ein Ver- 
mögen von 800.000 Pfund anzusammeln, dürfen Sie 
sich zur Ruhe setzen. 


Variablenbedeutung: 

-RU = Anzahl der Runden 

G = Guthaben 

sc = Schulden 

LP = Ladeplatz 

A = _ Allgemeines 

W = Waffen 

K = Kohle 

R = Rum 

E = Edelsteine 

KE = Kanone (nicht-)vorhanden 

P(1-5) = _Preisfestsetzung 

P = _ Preisberechnung 

XG =  x-mal geliehen 

LI = Limit 

SES$ = Städte 

ss = Standort 

X = Anzahl der Verletzten 

TR = _ Verlust durch Trickbetrüger 

GV = _ Gewinn/Verlust bei Glücksspiel 

GZ = _ Gewinnzahl 

PK = Preis der Kanone 

VD = Verdienst durch Geschäft mit Kapitän 
des fremden Schiffes 

GR = _ Schuldnachlaß durch Gönner 

MR = Kosten der Mastreparatur 

SR = Kosten der Segelreparatur 

RR = Kosten der Rumpfreparatur 

GR = _ Gesamtkosten der Reparatur 
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SG BE 


rem händelsfahrt 
rem (p) 7/87 commodore Be 


rem -ssusrreerersermeseneomoer: 
rem (©) 1986 By 

rem elaus-d. heineck 
rem 

rem basic v3.5 

rem plus4 Le168/116 + 84Akb) 
rem =*===-=-=----+e- nee een nen 
gosub 57582 
fori=-ito2f:qgg$=quS+cät:ne> 


:qls="" 
fori=-1t0o?:qg1$=q] I$+c1$:rıer 
DOLnmEE ehrt 14) A er 


B,15,8rC91074, 13. 2:salert,£ 


a0 


u 


printtäb( 128) "DIE"sS2$"GROS 


E"S2$"HANDELSFAHRT 


=) DIR aD 535 11:7) VRR RE ER eye ızz 
=25:g0sub5722: print 

69 printtebl. 135) "Written hy" 
78 printtab(52)"Claus-D:. Hein 
eck" 

180 printtab(l 248)" "rn$rfig"Beji 
n Name"fo$;rf&$ 

198 print 
288 inputne$ 


218 fForx=1to1lBMR:next 

228 gosub554AB r 
238 ru=® 

248 g=18*int(rnd( 1)*98) 

2508 Er BEDSERTTERE NER? Au 

268 sc=-1dd*intlernd( 1)*1880) 

27a ifsc<4AddBorsc>9QUßthen?26l 
288 a=d:w=-d:k=-d:r=d:e=-Qd:ru=d:l 
p=-50:ke=d:xg=-B:set="1" 

290 gosub54582 

2388 gosub5348 

318 printhef 

328 printtab( 240) :printtabf( 240 
) 

338 printtsb( 48) Fl$"Druecke"fo 
De u Se a mn ern Preise:" 

BAU DELHEN 2 50 0a ie 

350 Brint"1 Fuss Rayrfen.s 2:45 
Allgemeines £" 

Sen print 2 Puer Nerhs ass sa 
Wetten. + .% : =. 

878 prinet”a. Tuer Segel. 
ROndEsna am“ Br 

3eu print”"a Fuer Bank: .s:: 5% 
ee I 

390 BEINE 2.848 a8 bestiehasaw as; 
Edelsteine..f” 

4008 printtakl 82 lichr$( 27)"q" 
418 printhef 

428 printtabl( 13% ER 

430. prinktaßtBt ara "ol$;g 
130, BEINE SFT Te "left $t 


HANDELLSFAHRT 


ql$,6) : sc 

250 wraisntkabt51N” ...: 
8:47; 18 

A468 printhet . 3% 
IE pBrivttahl 232 ae "21$o1 


a0 BEIOEESBEL IE 225; 


430 Printable 
$&;K x 


Sr BEITELSBEL II, 2 ERBE ET 


IB INERAEL SET ehe Be 


printtab( 233) zp( 1) 
printtab( 33) ;pt 2) 
printtsb( 33) ;p(3) 


Le 


on 9U0 
S981ı 


Ein 


55 BLINERSHL. 33 BL 29 

S&EB printtsbf 33) ;pi(5) 

5780 printhe$ 

5428 printtahl( 248) :printtab( 248 
) 


592 printtasb( AB; Fl£"Orvecke"fo 


608 printtab(42)"1 fuer Kaufen 


[2 


678° Briint? 2, Ser Verfun.” 
628 print"3 fuer Segeln " 
6308 ifse$>"1"thengoto 5518 
648 print"A fuer Bank-.." 
BONEDRIDE N an areas besuch 
E&O rem 
[w getd 
688 ifse$>"1"andd$>"3"then67® 
8648 ifdy="N"andip>fthen?40 
722 ifd$=-"Z"andlp<Sßthen 128% 
718 ifd$="3"then1668 

72B ifdb=-"4"theni320 

738 goto6?7d 

748 printhe$’ 

758 printtsb( 2428) :printtab(?2 
) 


768 printtab( 491 "Was willst Du 


770 printtab[ 40) "kaufen ?..... 
70 »DRUNE" . 2a: Seen, N 
798 print"(a/w/k/r/e).." 
300 DREINE" se mews any ve 
BIST 2 Zus se ans ern e a 


B?@ getkf 


838 a ee ee 


"kK"andk$s>" 5 'andk$<>"e"thens 
840 ifk$="s"thenp=pf 1) 
858 ifk$="w"thenp=p( 2) 
86B ifk$="k"thenp=p( 3) 
878 ifk$="r"thenp=p( 4) 


89 


SIEerER al 


Brimtkabtl AR)": u: 


« 


‚DIE GROSSE HANDELSFAHRT - 2— 


888 ifk$="e"thenp=p(5) <ch> 1308 ifv$="a"thenp=pt( 1) <na> 
898 printhe$ <mh> 131@ ifv$="w"thenp=p(?2) <pb> 
988 printtab( 248) :printtabfl 242 1328 ifv$="k"thenp=p( 3) <pa> 
) <lh> 13398 ifv$="r"thenp=p(4) sac> 
918 printtab( 42) "Wieviel wills 1342 ifv$="e"thenp=p(5) <aa> 
Lu <bce> 13582 printhe$ . sf2 
928 printtab(48)"Du kaufen ?.. 1368 printtab( 248) :printtab( 24 
a j <hc> 9) <if> 
330 PEINETEBIUR Tasse onen 1378 printtab(48) "Wieviel will 
a x <dg> st" <oa> 
949 Brainttabt 1E0)". 22 2:2 000 1388 printtab(42) "Du verkaufen 
EL. <hd> a <hf> 
958 printhe$:printgg$;:inputka <cc> 3390 präintiabl ID) ers. 77 
968 ifka>58then892 <di> ER; <ae> 
978 ifka>1lpthengosub1138 <ck> 1480: Brinttahl TED) "u... us 
988 iflka*p) >gthen 1270 <kc> u <bd> 
998 g=g-(ka*p) <kf> 1418 printhe$:printggs; :inputv 
12888 1p=1p-ka <am> n <ai> 
1818 ifk$="a"thena=satka <dh> 1420 ifvn>58then 13582 <eg> 
1828 ifk$="w"thenw=w+ka <i.d> 1438 ifv$="a"andvn>athen1579 <ja> 
1838 ifk$="K"thenk=k+ka <gk> 1440 ifv$="w"andvun>wthen 15798 <mg> 
1848 ifk$="r"thenr=r+tka <ij> 1458 ifv$="kK"andvn>kthen 15782 a 
18580 ifk$="e'"thene=e+tka <gm> 1468 ifv$="r"andvn>rthen 1578 <na> 
108628 goto312 <ef> 1470 ifv$="e"andvn>ethen 1578 <ma> 
1878 printhe$ <hm> 1489 letg=g+(p*vn) <da> 
18828 printtab( 248) :printtab( 24 1498 letlp=1p+vn <jh> 
2) <gm> 15Q00 ifv$="a"thena=s-vn <seh> 
12898 printtab(49)"Du hast nich . 1518 ifv$="w"thenw=w-vun <jd> 
E27 <bce> 1528 ifv$="kK"thenk=k-vun <hj> 
1180 printtab(4B) "genug Geld ! 1532 ifv$="r"thenr=sr-vn <ji> 
an <om> 1548 ifv$="e"thene=e-vn <hm> 
1118 forx=1t01588:next <dm> 1558 ifg>=-829200then513® <ob> 
u >= 200892 <io> 1568 g0t0318 <dl> 
1132 printheß$ <1i2 157® printheß <hc> 
1148 printtab( 248) :printtab( 24 1582 printtab( 248) :printtab( 24 
8) <ki> a) : u 
1158 printtabf 48) "Du hast kein 1598 printtab(4B) "Du hast kein 
en" <je> Br <po> 
1168 printtab(48) "Platz Fuer": 1588 printtab(428)"....an Bord 
SS Be <dn> Fo " <gc> 
1178 printtab( 162) ic 16512 printhe$ <jk> 
1180 forx=Bto15B0:next <ib> 1528 printtab( 248) :printtab( 24 
1198 goto898 <ne> 8) <ik> 
1288 printhe$ B <po> 1638 printtab( 128) ;vn <dl> 
1218 printtabt 249) :printtab( 24 1540 forx=28t0o158%:next ’ <ep> 
8) <oo> 1658 g80t012359 <mk> 
1228 printtab( 48)"Was willst D 1668 letru=sru#+l <of> 
ol. & di. > 15690 letxg=8 Ejr> 
1238 printtab( 408) "verkaufen ?. 16828 printheß <o8a> 
ze <chb> 1690 printtab( 248) :printtab( 24 
TeUR2 print a. ee a = ir & sap> ©) <na> 
1258 print"(afw/k/r/e).." <kg> 1788 printtab( 48) "Staedte:.." <nh> 
TEEN ERFADE san du. ot <cd> 1712 printtab(48) "1.Swansea... 
FERDEBRINE u nee Bea >: “ <on> AR <uk> 
1258 getv$ <ca> 1720 pr int"2.Livenrponl " > <dh> 
1290 ifv$<>"arandv$<>"w"andv$< 1730 BEINE 3A SS 2. <dg> 
k'andv$<s>"r"andv$<>"e"thent?2 1948 print"4.Newcastle " <dh> 
38 <om> 1758 print"5.Southampton" <po> 
90 


mm 0 


BE GROSSE HANDELSFAHRT 


768 print 

778 getse$ = 
780 ifse$<"1"orse$>"5"then177 
2 

17298 ifs$=" Swanses"andse$="1" 
chen 1772 

'8B0 gosub5458 

1818 ifru=sSorru=s1Ißorru=15then4 
5708 

18208 ifrnd( 1)}> .22andrnd( 1) <.3t 
nen 3522 % 

1838 ifrndl 1)<.1Sthen 4258 
1848 ifrnd( 1)>.55andrnd( 1)<.65 
then 44852 

1858 ifrnd( 1)>.45andrnd( 1)<.55 
then 2530 

1868 ifrnd( 1)>.35andrnd( 1) <.45 
then :.3298 

1870 ifrnd( 1)>.8®8 and sc>® the 
n 4718:else181® 

1BBQ gosub55482 

1890 letsc=eint( 1.12#sc) 


19082 ifsc>=25280then5650% 

1918 goto38® 

1928 printhe$ 

1938 printtasb( 248) :printtab( 24 
2) 

1948 printtab(42) "willst Du Ge 
er 

1958 printtsb( AB) fl$"1"fof"eih 
en oder "T1$"zZ"Fo$g"u-" 

NIOR: BIETET Sa En Sa a ua x 
1978 print"rueckzahlen ? " 
IA DEE" ee ara “ 
VII RENNEN er anna " 
2un0 printtaebl BO)". «asus as - ” 
2818 getlzf$ 

2028 iflz$<>"l"andlz$<>"z"then 
2018 

2038 iflz$="l"andxg>®then2168 
2848 iflz$="1l"then22682 

2058 printhef 

2068 printtab( 248) :printtasb( 24 
2) 

207® printtab( 4AQ) "Wieviel will 
SıE." 

20808 Brantnant aB)"Du zurueckza 
INT a me 

2090 printtabl 48}"len ?...:... 
2100 Brinttsßgl TEN)" era ann: 
211@ printhe$:printgg$; :inputz 
u 

2128 ifzu>rg orzu>scthen2B54 
2138 letsc=sc-zu 

214M letg=g-zu 

2158 gnto31ß 


91 


ug 

2160 printhef <mc> 
2178 printtabl 248) :printtab( 24 
8) <lc> 
2158 printtab( AB) rn$"Du kannst 

pro "TrPE',.,” <jc> 
2498 printrn$"Fahrt nur ein-"r 
EB <ig> 
2288 printrn$"mal leihen !.."r 
Er..." : <kj> 
BEN RE ee ea = <dj> 
FPOEN-ENEWE N 2 warnen mn 7 <ed> 
223@ printtabl( 12®) <lg> 
2248 forx=Bto?®BR:next <kf> 
2258 g0t031® <op> 
2268 printhe$ <cg> 
2278 printtab( 248) :printtab( 24 
2) <bg> 
2288 printtsb(42B) "Wieviel will 

a / . <hb> 
2298 printtsb(48)"Du leihen ?. 

"ER Ds <pk> 
2308 ASTA ER 21" 20222. 

Se <gh> 
2318 printtab( 122) <ah> 
2328 letxg=xg+1 <gm> 
2338 printhe$:printgg$; :inputl 
e <jb> 
2348 letli=188*int(rnd( 1) *58) + 

1000 <pi> 
2358 ifli<1@28then2340 <dl> 
2368 ifle>lithen248® <ba> 
237® letsc=sc+tle <om> 
2388 letg=g+tle <fi> 
2398 goto31® <hm> 
2408 printhef <ld> 
2418 printtab( 248) <go> 
2428 printtab( 249) <hi> 
2438 printtsb(409) "Das Limit is 

A <nl> 
2448 printtablAQ)"E...... VEN ara 

u <ed> 
2458 printhef <of> 
2468 printtab( 242) <ka> 
2478 printtab( 240) <kk> 
2488 printtab( 121);1l1i <ic> 
2490 letsc=sc+tli <gi> 
2508 letg=g+tli <ne> 
2518 forx=9Bto1789:next <1lk 
2528 goto31® 2 <po> 
2532 scnelr:colord4 .,3,4:c0lord;, 
3,4:6olorT,8 <kn> 
2548 printtab( 242) <pa> 
2558 printtab( 129) "##* P"sag"I 

"S28"A"S2H"ATSCE"T"S2B"E"S2E"N 

ee = <gb> 
2568 getkeyaf <aj> 
2578 ifke=-1then2858 «142 
2580 ifrnd( 1)>.5then3219 <ch> 9 


DEE: GROSSE HANDE 


25908 
2608 


iflp=58then2?38 

schelr 

2618 printtab( 248) 

2628 printtab( 132) "Piraten hab 
en uns" 

2630 printtab(58) "ueberfallen 
und die" 3 

2648 printtab(59)"ganze Ladung 
an. sich" 

2658 printtab(58) "genommen." 
2668 getkeya$ 

2678 letlp=5® 

2688 leta=® 

2698 letw=d 

278208 letk=® 

2718 letr=@d 

2720 lete=® 

2738 scnelr 

2748 letx=int(rnd( 1)*18)+3 

2758 printtab( 258) "Waehrend de 


r.Schlacht" 

2768 printtab(58) "sind";x;"Dei 
ner Mann-" 

2778 printtab( 58) "schaft verwu 


ndet wor-" 

2788 printtab(58) "den.Die ET 
üng dureh” 

2798 printtab(5®) "einen Doktor 
kostet" 

28808 printtab(58)"Dich je Verl 
etzten £975." 

2818 getkeyaß$ 

2828 letg=g-75*x 

2838 ifg<Qthen387» 

2848 g0t01888 

2858 scnelr 

2868 printtah( 242) 

28728 printtab( 138) "Deine Manns 
chaft be-" 

2888 printtab(58) "nutzt die Ka 
vom" 
printtab(58)"schwarzen Ja 


getkeyaß 

scncelr 

ifrnd( 1)>.3then39P®d 
printtab( 2482) 

printtab( 138) "Die Kanone 
ist leider" 

2958 printtab{58) "kaputt !" 
2962 getkeya$ 

29978 scnclr 

29828 letke=-® 

2998 goto2612 

3288 printtab( 2402) 

3218 printtab(98) "Die Kenone h 
at das" 

3022 printtab(5®B) "Piratenschif 


<nj? 
<HK&> 
<dh> 


<gk> 
<dm> 


<mo> 
<pg> 
<en> 
<1:d> 
<saon> 
<en> 
<el> 
<fm> 
<fj> 
<jm> 
<hn> 


<hl> 
<sco> 
<im> 
<en> 
<jk> 


<li> 
<ad> 
<pc> 
<dp> 
<hn> 
<bf> 
<dc> 


<hk> 
<po> 


<np> 
<fo> 
<fb> 
<1H> 
<hi> 


.<ph> 


II? 
<jk> 
<in> 
<kKj> 
<al> 
<1lo> 


GER» 


ISFAHRT 


' 3328 


rr 


f ver- 
328380 printtab(58) "senkt !" 
3248 printtab(582)"(Gut gemacht 
‚Jungs!)" 

3052 getkeyaß 

3860 g0t01889 

3872 scenclr:color4,1 
coLor1; 1 

38382 printtsb( 138) "Da Du 
genuegend" 

3098 Printtab(50) "Geld hattest 
‚den Dok-" 

31282 printtab(5B) "tor 
len,hat" 

3118 printtab(582) "Deine Mannsc 
haft ge-" 

3128 printtab(582) "meutert und 
das Schiff" 

31380 SRERE tSHFERN] "verkauf din 
die Rech-" 

31408 Prinstabl 0) "ung bezahle 
koen-" 

BEINE 30) "en. ar 


printtab( 92) "Nimm’s- leich 


YEHLSPR, N 


nicht 


getkeyaß 

scenclr 
printtab( 255) "E"s2$"N"s2$ 
2g"E" 

g0t05268 

senclr 

printtab( 248) 
printtab( 138) "Die Piraten 
haben" : 

3248 printtab(52) "nicht angegr 
iffen," 
3258 printtab(58) "und du kanns 
t wei-" 
3268 printtab(58) "fahren t}" 
32780 getkeyaß 
3288 g0t01888 

3298 senelr:color4,6,3:color®, 
&.,.83ncolonrt,d 

33808 printtab( 242) 

aa10 printtab( 211) "*#*= S"s2$"T 
"S2$"U"S2$E"A"S2E"M"s2g"Hun" 
getkeyaß 

ifrnd( 1)>.Sorlp=-52then345 


Dita 

3288 
3218 
3228 
3238 


3339 
14) 
3348 scnclr 

3358 printtab( 242) 

33608 printtsb(98) "Ein Sturm is 
t aufge-" 

3372 printtab(5B) "kKommen,und w 
ir mues-" 

3388 printtab(58) "sen Weber di 
e Haelfte” j 


92 


hs 


zu bezah 


vi 


® printtaeb( 5%} "der Ladung u 
er Bord" 
222 printtab( SB}"werfen ! (sc 
=ce drum) " 
2'’2 1p=elp+l a-int(a/2))*+(w-int 


IEER-IHECKÄ2ETI HER -EnElL #72 

+{e-int[le/?2)) 

getkevat 

s-rintls/?) :w=eint(w/2l:kei 

kK/2) ır=eint(r/?) :esint(e;,?) 

12 g0t018658 z 
MS59 scncir 

258 printtab( 240) 
278 printtsb( 22) "Der 
E sofort” 

>258 printtab( 5B) "aufgehoert 
und du" 

33908 printtab( 58) "kannst 
rfshren." 

3580 getkeyaf 

2510 goto18882 
3528 scenclr:color@,18,3:color4 
+8, 32: 88 Or%,; 1 
2538 printtab( 248) 
3540 printtabl 125)"*F# L A"s2H$ 
"N D"YsS2$"A" s2$"U"S2$E"S"s2$"F"s 
SH" L "SEE" U"NS2E" "2er 
3550 getkeya$ 

3568 ifrnd( 1)>.5then3842 

3578 ifr>dthen3?50 

3588 tr=-int(rnd( 1)*3100) 

3598 iftr<5S9ßdthen35öß 

3688 scncelr 

3618 printtsbt 250) "Waehrend 

nes Land-" 

3628 printtab( 58) "ausflugs 

en Bir” 

3638 printtahb( 58) "Trickbetrueg 

er Eitr 

3648 printtab( 50) "abgenommen ! 

3650 

36604 

36708 


Sturm ha 


’ 


weite 


ei 


hatı 


getkeya$ 

e=-g-tr 

ifg<@then3&90 

36B8 goto18858 

3698 -scnölricolord, 1:c0lorkl, 1: 
29L071,2 i 

3788 printtab( 250) "Du bist 
zt: pDkeite” 

3718 printtsb( 58) "und musst di 
e Reise" 

3728 printtab(5R) "beenden 
3730 getkeyaf 

3748 goto3168 

3758 scnelr:printtabti 258) "Waeh 
rend Du einen" 

3769 printtabi 50) "Landausflug 
gemacht" 


ah an PLN 


2 == GROSSE HANDELSRFAHPT 


3778 printtab( 58) "hast ,„ haben 
Deine" 

3788 printtab{ 58) "Matrosen den 
ganzen" ie, 

3798 printtab( 58) "Rum ausgetru 
nken 1" 

38009 getkeyaf 

3810 1Ip=-lp*#tr 

aBEB r=® 

23834 goto188d 

3548 senelr 

38508 printtabl 250} "Waehrend ei 
nes Land-" F 


3868 printtah( 504) "ausflugs kom 

mst Du" 

3878 printtab(5%) "an einer Kne 
ipe ver-" 

3888 printtabit SB) "bei und gehs 
t hinein." s 
3898 getkeya$ 

3988 scnelr 

3918 printtab( 258)"Du wirst zu 
einem" 

3928 printtsb(50) "Gluecksspiel 
sufge-" 

3938 printtab(58) "fordert." 
3348 printtab( 58) "Machst Du mi 
Er 
3950 
3968 
3358 
3978 
3980 
3990 

4088 
aurG 
40208 
chen den" 

aa38ß printtab(58)"Zahlen 
Ad at 

4B4Q printtab( 58) "Ist es 
ichtige" 

4858 printtab(50Jj) "Zahl „, 
nst Darts 

ABEB printtab( 58) "ist es 
alsche ,‚" 


getmmf 
ifmm$<>"j"andamm$<>"n"then 


ifmm$="n"then 1888 
gv=-int(rnd( 1)*180188) 
ifgv<18208then3985ßB 
ez=-intl radte r)+1.53 

scnelr 
printtab( 178) "Waehle zwis 


“ri Pet 


die r 
gewin 


die f 


4878 printtab(5ß8)"verlierst Du 
AUBD getwn 

aB93B itfwn<>Tandwn<>Zthen4d4Bß8Bd 
4100 ifwn<>gzthend4i?7ß 

4118 scncelr 

4128 printtab( 25080) "Du hast ric 
htig pera-" 

413QA printtab(5A)"ten und somi 
br EU 

4148 printtab( 58) "gewonnen !" 


41508 getkeyeaf 
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A160 g=g+gvV:g0t01888 
4178 scncelr 


4180 printtab( 250) "Du hast fal 
sch gera-" 


41928 printtsb(58)"ten und somi 
le Sr, 

4208 printtab(5B) "verloren !" 
a210 getkeyaß Ä 

4228 g=g-gv 

4230 ifg<®dthengoto3692 

4248 g0t01888 

4258 pk=int(rnd( 1) #*191082) 

4268 ifpk<19092then425Q 

4270 sencelr:color4,1:color®,1: 


eolori,2 

4288 printtab( 242) 

4298 printtab( 127) "xx DER"S2$ 
"SCHWARZE" sS2$"JACK"s2g" Hu" 
4300 getkeyaß 

4318 scnclr 

4328 printtab( 250) " "Schwarzer 
Jack’ bie-" 

4338 printtab(5B) "tet 
Kanone" 

4348 printtab(58) "zum 
or Pira-" 

4358 printtab(5®)"ten 
4368 printtab(5B) "Sie 
"EBRi”,” 

4378 printtab(58)"Willst Du ei 
ne. ?" 

4388 getkk$ 

4399 .ifkk$<>" j"andkk$<>"n"then 
4388 

4400 ifkk$="j"andg<pkthend458 
44180 ifkk$="n"then1388 
4428 ke=] 

4430 g=g-pk 

44408 g0t01882 

4458 printtab( 92) "Du hast 
nig Geld !" 

4460 getkeyaß$ 

4478 g0t01888 

4488 scnclr:color4,2:color@,2: 
eolonrN;; 1 

4498 printtab( 2408) :printtabf( 12 
B)TRRETSDOS"SCHIFF"S2$"IN"S2B"SG 
ICHT"s2$" ax" 

4500 getkeya$ 

4518 scnclr 

4528 printtsb( 252) "Willst Du n 
aeher an" x 

4538 printtab(50) "das gesichte 
te SschLfrT" 

4548 printtab(58) "heranfahren 
a 

4558 gethf$ 

4568 ifhf$<>" j"andhf$<>"n"then 


Dir eine 


an. 
kostet £ 


zuwe 


45508 
4578 
4588 
4598 
4600 


ifhf$="n"then1388 

ifrnd( 1)>.5then2538 
vd=int(rnd( 1}*191908) 
ifvd<12808then4599 

4618 scncelr A 

4620 printtab(25®) "Es ist ein 
englisches" 

4638 printtab( 58) "Handelsschif 
Ei 


4640 printtab( 52) "Du machst mi 
t dem Ka-" 

4650 printtab(5®) "pitaen ein G 
eschaeft" 

4668 printtab(5B) "und verdiens 
t dabei" 


4698 printtab(50)"£";vd 

4680 getkeyaß 

4690 g=g+vVd 

47208 8001888 

47108 senelr:color4,14:color®,1 


4.200107; 15,3 

4720 printtab(248) :printtab( 12 
EIN"sS2$"GOENNER 
getkeyaß 
er=-180*intlrnd( 1)*191) 
ifgr<19088then47?48 
ifgr>scthengr=sc 

schelr 

printtab( 250) "Ein unbekan 
Goen-" 
printtab(58) "ner hat 
 Nron“ 

4808 printtab( 50) "Deinen Schul 
den abbe-" 


Ernie 


48180 printtab(58) "zahlt !" 
4828 getkeyaß 

4838 ifsc<grthen4858 

4840 sc=sc-gr:g0t01880 

4850 sc=d 

48680 g0t01889 

4878 letmr=int(rnd( 1) #51900) 
4880 ifmr<SßB8ormr>29QQ%then4878 
4898 letsr=int(rnd( 1)*5108) 
43882 ifsr<508orsr>2Q8980then4398 
4910 .letrr=int(rnd( 1) 5198) 
4920 ifrr<2Q@Q9orrr>2Q008then4919 
49380 gr=mr+sr#+rr 

4348 scenclr 

4958 printtab( 122) "Dein Schiff 
muss repariert werden !" 

4968 printtab( 122) "Kosten :" 
4978 printtab(82) "Mast....£";m 
r 

49882 printtab(82)"Segel...£";s 
7 

43308 printtab( 82) "Rumpf...£"ır 
= 
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2228 printtabli 49) "-------- " 
S@10 printtab( 82) "Gesamt..£";g 
=228 getkeya$ 

SseB38 g=g-gr 

Ss248 ifg<dthensasa 

S®B58 g0t018882 

2608 a re A 
beior;, 

5278 lee Du zuwen 
ie Geld" 

Ss®8802 printtab(5B) "hast ,„ die PR 
echnung" 


298 printtab(58)"zu bezahlen 

musst" 

188 printtab(5®)} "Du die Reise 
been-" 

118 printtab(5B) "den 
128 g0t03168 

5130 scneln:colord ,8: BELEEE, a 

EO.:081, 9,9 

5148 printtab( 125) "SHHHFFEHFTE 
SEFEEPEHEFFFEEEEHR" 

5:50. BPENRELSB(ST FE: 25 Ha ad 


(1 


By? 


in 1 


I EEE ER TUE g" 

5160 printtab(5)"$....H"s2ag"E" 
sDE"AMSDETZUSDE"L. "SIE" I"SsDEtE" 
SEI" H"S2Et"E N. .u.$" 

5197,09 BIN GE as SIE ra 
a TEE EN g" 


5188 printtab(5)"$..C"s2$"L"s2 
B"U"S2B"E"S2S"C"S2$"K"s2p"Ww"; 
5198 prints2$"U"s2$"N"s2$"5"s2 
S"C"S2E"H"S2$KS2H"$" 
S20d) PRINELSEN SI"E, ee ea 
5218 printtab(5)"HEEEEFIETELEE 
BEEPEIEFEPHETEEHTE" 

228 printtab( 284) "Du hast ueb 
er £ 808098 verdient" 

5238 printtab(44) "und kannst D 
ich jetzt zur Auhe" 
5248 printtab( 44) "setzen 
5258 printtab( 128)"Genauer Spi 
elstand ENeO 
5268 getkeya$ 
5278 scnclr 

5282 printtab( 242) 
1)"Noch ein Spiel 


Hier 


:printtaht 13 


at 


5290 getnst 

5380B ifns$<>"j"andns$<>"n"then 
5298 

5318 ifns$="j"thenrun 

5328 printtab( 259) "T et S5"s2$ 
"O’S2g"H"Ss2E"U”S2H"E "SA" 
ie EN 

5338 end 

s349 letp( 1)=-int(lrudl 1)*16) 


HANDELSFAHRT 


ifp( 1J<ithen5348 
5368 letp(2)=1B*int(rnd( 1)*19) 
5378 ifp(2)<58then5368 


538@ letp(3)=18*int(rndf 1)*108 
) 

5398 ifp( 3) <3BBthen5388 

5488 letp( 4) =1BR*int(lrnd( 1)*31 
) 

5a18 ifplA4) <5B%then542B 

5428 letp(5)=-1BRA*int(rnd( 1)*18 
1) 

5438 ifp( 5) <19080then5428 

54480 return 

5458 ifse$=-"i"then lets$=" Swa 
nsea" 

5468 ifse$="2"then lets$=" Liv 
erpool" s 

5470 itse$="3"then lets$=" Lon 
don" j 
5488 ifse$="4"then lets$=" New 
castle" 

5498 ifse$="5"then lets$=" Sou 
thsmpton" 

S5020 return 

Sog DELWEN ee ren en ” 
5520 DEANDE er an en fange 2 
5538 g0t0678 

5548 scnclr:color4,15,3:color®& 


„19, 3: eülerV,8 
556508. print" "ımege” 
tsgesellschaft" 
an Be 


.„Schiffahr 


"RS 
5578 printtab( 49) "Standort..:" 
5588 printtab( 42) "Guthaben..£. 
er, Allgemeines" 
5598 printtab( 28) "Waffen" 


5800- BEIHE"BEhULdENa sr en. 
.Kohle" 

S618 printtab( 28) "Rum" 

5628 print"Ladeplatz 
.Edelsteine" 

en. Au ee 
"48 

S&E48 return 

5658 scnelr 

eolori ,’2 

5668 printtab( 25 

er £ 252098" 

5678 printtab(58) "Schulden has 
t „ pfaen- 

5658 printtab(58)"den Deine Gl 
aeubiger" 

5698 printtab(5@)"das Schiff 
und deine" 


:color4,1 


:eolordy.1 


B)"Weil Du ueb 
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<da> 
<km> 


<c3a> 
<3c> 
<pb> 


<oh> 


’ 
<ob> » 
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KORREKTUREN 


Fehler sind lästig, doch 
leider nicht immer ganz 
auszuschließen. Hier die 
entdeckten Fehler in 
vorigen Heften: 


BOND CW16 4/87 Seite 40 
Zeile 190 

Statt print“ run180° muß 
es hier heißen, print‘run 
270“. Dieser Fehler ent- 
stand beim Renumbern. 


DIA SHOW CW16 4/87 
Seite 121 

Das zum Artikel gehörige 
Listing wanderte fälsch- 
licherweise in das Normal- 
heft CW 6/87 auf Seite 
56. Für diejenigen, die 
dieses Heft nicht haben, 
gegen Freiumschlag 
können Sie das Listing 
bei uns bekommen. 


SCHALTEN MIT C16 

CW 16 1/87 Seite 9 

Die angegebenen Pokes: 
poke64784,2 und 
poke64784,255 funktio- 
nieren leider nicht auf 
jedem Rechner. Verwen- 
den Sie deshalb bitte statt 
dessen sys58212 für Motor 
einschalten und sys48288 . 
für Motor ausschalten. 


CHECKSUMMER 

dieses Heft 

SHIFT + SPACE werden 
anders gewertet als SPACE 
allein. Wenn Sie also zufäl- 
lig die Shifttaste drücken, 
während Sie die Space- 
taste drücken, führt dies 
zu einer falschen Check- 
summe, tut aber Ihrem 
Programm keinen Ab- 
bruch. Wenn Sie eine Zeile 
eingetippt haben, die 
Checksumme nicht über- 


‚nach unten gelegt werden, 


C16 SPECIAL 
WIEDER 
IM NOVEMBER 


einstimmt, aber tatsächlich 
kein Eingabefehler festzu- 
stellen ist, so könnte der 
Programmautor ein 
SHIFT-SPACE eingegeben 
haben. Im nächsten Heft 
werden wir dieses berück- 
sichtigen und SPACE- 
SHIFT genauso wie 
SPACE bei der Prüfsum- 
menberechnung behandeln. 


SCREENEDITOR 

CW 16 4/87 

In der Zeile 180 hätte es 
heißen müssen pr$=chr$ 


(147)... statt chr$(118) — 


ich war leider beim 
Nachsehen in der Code- 
tabelle in die falsche Spal- 
te gerutscht —, deshalb 
war Bildschirmlöschen 
nach wie vor möglich. 
Unschön für die Data- 
settenbesitzer war auch, 
daß “Press Play & Record 
on Tape“ beim Abspei- 
chern mit auf den Bild- 
schirm geriet. Abhilfe 
schaft, wenn Sie vor dem 
Speichern Attributram 
und Textram im Spei- 
cher nach oben kopieren: 
1131 fori=0 to 999 
1132 pokeit1288,peek 
(i+2048) 
1133 pokeit13288,peek 
(i+3072) 
1134 next 
Dementsprechend wären 
in den Zeilen 1220 und 
1230 die 2048 und 3072 
durch 12288 und 13288 
zu ersetzen. 
In Zeile 91 sollte das 
Basicende mit 
91 poke55,0:poke56, 
48:clr 


so daß Variable und Bild- 
schirmdaten nicht kolli- 
dieren. 


5788 printtab(58) "Reise 
Er 


ende 


ist 


5712 g0t031682 


5729 fori=1tozz:printxx$;:next 


net urn 

5730 rem nachspann =========== 
5748 rem farbcodes/steuercodes 
5758 c4$=chr$(017) :rn$=chr$( 81 
8) 

5768 he$=chr$( 819) :fl$=chr$( 13 
0) j 

5778 Fo$ß=chr$( 132) :rf$=chr$( 14 
6) 

5788 c1$=chr$( 157) 

5798 rem zeichensatz/graphik 
58808 s2$=chr$( 168) :zn$=chrä$( 18 
4) 

5818 return 

5828 rem ==========-=-==2=2=-=02=2=2 == 
5838 rem 60671 bytes memory 
58480 rem 12881. bytes program 
5858 rem 00329 bytes variables 
3860 rem 00062 bytes arrays 
5878 rem 88421 bytes strings 
5888 rem 46978 bytes fre(D®) 
5898 rem =========-=-=22=2=2=- === === 
5988 rem ersetzen sie bitte 
5918 rem in den print-anwei- 
592@ rem sungen die punkte 
5932 rem durch blanks. 

5948 rem ======.==2=-===2=2====222== 


LISTING 


TEXT 16 ODER: 
AUCH MIIT KLEINEN IST 
TEXTVERARBEITUNG. 
MÖGLICH 


Kommerzielle Teen sind so 
<omfortabel, daß man sehr lange braucht, um sie be- 
Sienen zu können. Außerdem benötigen sie sehr viel 
Speicherplatz, bei einem Arbeitsspeicher bis zu 600 
Xb ist das auch kein Problem, aber wenn man nur 
12277 Bytes Speicher zur Verfügung hat, muß man 
schon etwas mehr haushalten als bei Speicherriesen 


wie den PC’s. Dieses Programm benötigt nur ca. 


10 Kb und läuft daher auch auf dem C-116 bzw. auf 
dem C-16. Schnell hat man alle notwendigen Routi- 
nen im Griff und los geht das Briefeschreiben. 

Zur Handhabung sind vorweg noch einige klären- 
de Worte vonnöten. Wenn Sie das Programm geladen 
haben, vergewissern Sie sich vor dem Start, daß der 
Drucker mit dem seriellen Anschlußport des Rechners 
oder der Floppy (z.B. 1541) verbunden ist. Ebenso 
ob die Geräteadresse =4 eingestellt und vor allem der 
Drucker betriebsbereit ist. Ist dieses nicht der Fall, 
bricht das Programm mit der Fehlermeldung 
‘DEVICE NOT PRESENT ERROR IN 220’ ab, denn 
in Zeile 220 erfolgt bereits die erste Druckanweisung. 

Jetzt zum Text-Druck-Programm selbst. Nach dem 
Start des Programms erscheint das erste Bild am Mo- 
nitor mit den zwei Kopfzeilen — Peter’s Text für 
den C16/P4 — Pfeil nach Links zum Menü RE- 
TURN Leerzeile — im weitern die Abfrage, mit 
Briefkopf (B), mit Absenderzeile (A), oder Neutral 
(N), tippen Sie je nach Wunsch (B) (A) (N) ein. Je 
nachdem, mit welcher -Entscheidung Sie fortfahren, 
gelangen Sie entweder direkt in das Eingabemenü 
oder Sie müssen noch Angaben zur Adresse, Datum 
usw. des Korrespondenzpartners eingeben. 


WIE HEISST DENN IHR DRUCKER? 


Da es eine Vielzahl an Druckern gibt, die an den 
Commodore Rechnern betrieben werden und einen 
entsprechenden CHRS Code-Salat mit den unter- 
schiedlichsten Möglichkeiten wie zum Beispiel: Near 
Letter-Qualität (Schönschrift), 
Draft-Qualität (Normalschrift), 
Enlarged-Print (Vergrößerter Druck oder 
Compressed-Print (Enger Druck) etc. 
gibt, können diese Code von Drucker zu Drucker ge- 
waltig abweichen. Sie müssen im einzelnen Fall Ihr 
Drucker-Handbuch zu Rate ziehen. Wir benutzten 


zum Programmtest einen. Mannesmann Tally MT-85 
' (Epson-Mode), mit einem Görlitz-Interface und einen 
Commodore MPS 1000. Im zweiten Menübild wird 
- die gewünschte Druckqualität abgefragt. (P) 
- Pica, (I) Italic, (K) Kompress oder (5) Schönschrift 
stehen zur Auswahl. 


EIGENE ADRESS-DATEN EINGEBEN 


In den Zeilen 390 bis 420 sind die Adresse und die 
anderen Daten für den Briefkopf mit den Daten des 
Programmautors gefüllt. Dies ist deshalb so, damit 
Sie sich etwas mit dem Programm vertraut machen 
und ausprobieren können, was mit diesem Programm 
und ihrer Computer/Programm/Drucker Konfigura- 
tion alles machbar ist. Wenn Sie sich eine ‘persönli- 
che’ Version des Programms anfertigen wollen, in der 
Ihre eigenen Adressdaten im Briefkopf ausgedruckt 
werden, gehen Sie wie folgt vor: Formatieren Sie eine 
leere Diskette. Wie dies geht, entnehmen Sie bitte 
ihrem Laufwerk — Handbuch. Laden Sie die einge- 
tippte Originalversion und ändern Sie die mit LIST 
390 - 420 und LIST 590 - 720 angezeigten Programm- 
zeilen mit ihren eigenen Daten. Dabei bleibt es Ihnen 
überlassen, ob Sie all die Angaben verwenden, die in 
diesem aufwendigen Kopfzeilen-Ausdruck zur Ver- 
fügung stehen. Nach dem Abspeichern kommt dann 
Ihre eigene Daten-Version zum Schreiben und Druk- 
ken zur Anwendung. 

Bitte lesen Sie weiter auf Seite 102 
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TEXTVERARBEITUNG 


Id rem textverarbeitung ====16 
28 rem (p) commodore welt = 
30 rem =====-=-======= === 2 === == 
AB rem (c) peter basch 7.0 = 
5ß rem (v) bernd welte 3 = 
&2D rem = 
78 rem version 3.5 42z/ascii = 
88 rem c-116/c-16/p4+1541/51 = 
908 rem ===================== => 
188 printchr$(914) :p$=chr$( 846 
) 

118 open1,4,7:0pen3,4,7:open4, 
4,7 

1208 dimz$( 6609) ,e$(61) 

138 c1$=chr$( 147) :cd$=chr$( 917 
) 

148 rn$=chr$( 918) :rf$=chr$( 146 
) 

158 rgq$=chr$( 145) :rb$=chr$( 157 
) 

1698 s1$=chr$( 932) :ec$=chr$( 027 
) 

178 in$=chr$( 927) +chr$( 064) 
1880 fori=1t0128:1z$=1z$+s1$:ne 
xt ; 
198 gosub2628 

2%. printel$'mit..Briefkopf.... 
=, <B>” 


218 print"mit.Absenderzeile.=. 
<A>" 

228 print"oder.Neutral...... 
<N>":print#1,in$; 

230 gety$:ify$=""then238 

248 ify$="n"then87 

250 ify$="b"thend44d 

268 ify$="a"then388 

278 goto 2308 

280 y$="b" 

290 printel$"Schrift:?.<s.P,2.P 
CB < . 1.2, Etalie” 

320 DRENE "ei: <.K.>.Komp 
De DrBchDen” 

310 getb$:ifb$=""then31® 

328 ify$="b"andb$="K"thenprint 
"Keine komprimierte Schrift mo 
eglich":g0t0318 

330 ifb$="p" then return 

348 ifb$="kK" thenprint#1,ec$;c 
hr$( 15) ;:return 

358 ifb$=-"i" thenprint#1,ec$;c 
hr$(52) ;:return 

368 ifb$="s" 'thenprint#1,ec$;c 
hr$(88) ; chr$( 1) ;: return 

378 goto31® 

380 gosub2989 

398 print#1,spc(8) "Peter Basch 


488 print#1,spc(8B) "Faerberstr. 


D— 
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16& gg 


27 
418 print#1,spc(8)"D-8998 LIND 
ENBERG" 
428 print#1,spc(8)"tel. 
6573" 
4380 fori=1to4:print#1:nexti:go 
t0880 

448 print:printrn$" Adressen e 


08381/ 


ingabe ":print 

45% Emput.:, . Anmederr sus as s 
a$ 

EU N EHBUE "ATi ni 
k$ 

470: »ENDUE” -- NOMBlan un em se < 
n$ 

480. input". 5E7r3838; x. zu: E 

c$ 

490, JHBUE + PEZIORE en Ss 
d$ 

snU Enaur" „Ihn. -- Datum. „u... e2 5 
e$ 

518 ife$=""thene$="...... TE. 
se”: input" uns... Zeichens. .4"'3 
r$ 

530 IFFrge'"tchenfge"..." 

SAO. ENBUR NN. »DaAEUME naar “3 
g$ 

550 Inpuk". „Anpede.,e sn sa SB: 
h$ 

568 print#3,chr$( 14) "========= 
578 print#3,ec$;chr$( 87) ;;chr$( 
2); 

580 print#3,ec$;chr$(80); 

598 print#3,ec$;chr$(69) ;chr$( 


il ODeter .Dasehr sc auler aan 
Se BALze dl1gbe" 

688 print#3,ec$;chr$( 78); 

612 print#3,ec$;chr$( 20) "faerb 
erstr, 27"; 

628 print#3,ec$;chr$( 15) spc( 87 
)"amateurradiostation" 

5630 print#3,ec$;chr$(65) ;chr$( 
5) 

6408 print#3,ec$;chr$(45) ;chr$( 
1) 35 

650 print#3,"8998 lindenberg" 

668 print#3,ec$;chr$( 45) ;chr$( 
0); 

670 print#3,ec$;chr$t 15) ;spel 1 
11)"Ortsverbaend Lindau/B":prin 
t #3 f 

680 print#3,"tel. 08381/6573"; 
698 print#3,ec$;chr$(69) spc( 57 
.Ndok.. . ut +18” 

7028 print#3,ec$;chr$( 78) 

718 print#3,ec$;chr$(83) ;chr$( 
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"2® print#3,"bank krspk 7988 w 
angen blz 65052928 ktnr. 93886 
B":print#3 

738 print#3,ec$;chr$(84); 

748 print#3,chr$( 18) ;chr$( 14)" 


====2=2====="iprintf 3,in$ 

750 fori=-1t02:printf#3,""sprint 
#3,ec$;chr$( 74) ;chr$(i); :nexti 
:print#4,in$; 

750 gosub288 

778 print#4,spc(8)a$ 

788 print#4,spc(8)k$ 

798 print#4,spc(8)n$ 

588 print#4,spc(8)c$ 

318 print#4,spc(8)d$ 

8280 fori=1to3:print#4:nexti 
838 fori=1t082:print#1,chr$(45 
)5:nexti 

848 print#1,ec$;chr$(77);".Ihr 


.Schreiben.vom:.";e$;"...unser 
Zeichen; . "sTt$; 

E50: BBENn EAN se ae Datum. 
7; g$ 


868 print#1:print#1:print#i:pr 
int#4,spc(8)h$:print#4,ec$;chr 
$(:78) :g0oto2442 

878 gosub29® 

880 goto 2440 

898 printchr$( 175) +rb$; 

900 gett$:ift$=""then922 

918 t=asc(t$) :ift=2Q8andw=landz 
<=1andlen(tt$) =Bthent$="":prin 
tel$; :z=1:g0t0890 

920 ifw=2andt=2Bandlen(tt$) =Bt 
hent$="":goto9D0® 

938 ift>13andt<2Bort>2Bandt<32 
ort>128andt<133ort>144andt<168 
thent$="":g0t09882 

948 ift=95thenreturn 

958 ift<>13then9?Bd:elsett=66:z 
$lz)=tt$:z=z+1:tt$="" 

968 printtab(38) "Zeile ";:prin 
tusing"###";z-1:g0t0898 

978 ift=34thent$="" 

988 ift<>2Bandlen(t$) =iIthenpri 
ntt$; 

998 ift<>290g0t01998 

108002 iflen(ltt$)=1then 19030 

1818 ifw=1then 1928 

18280 tt$=left$(tt$,1len(tt$)-1) 
:printchr$( 22) ;:g0t0898 

1838 1=1-len(tt$) :tt$="":print 
s1$rb$chr$( 28) ;:ifw=1thenz$(z) 
=""z=z-1:ifz=dthenz=1 

10848 ifw=ithentt$=z$(z) 

9858 ifw=dBthene=e-1:ife=-dthene 


<oi> 


<ik> 
<hj> 


<mo> 


<ih> 
<cb> 
<gj> 
<hn> 
<iK> 
<I> 
<je> 
<mg> 


<ok> 


<la> 
<jb> 
<pi> 
<jb> 
<mg> 
<gi> 
<bd> 
<pn> 
<fk> 
<im> 
<od> 
<ne> 


<fd> 
<ab> 


<in> 
<nj? 
<ke> 
<ce> 


<dg> 


<oj? 
<ch> 


zu 

1268 
1078 
1080 
1290 
1188 


ifw=®thentt$=e$(e) 
ifw=2thentt$="":g0t0988 
return ner 
iflen(t$)>1ithen1158 
ifqg=-Bandlen(tt$)>u-3andt$ 


. =" "then1148 


1118 
1128 
(4 
1138 iflen(tt$) <u+r2then892 
1148 goto188® 

11580 x1l=1len(t$) :fors=1toxl:tr$ 
=mid$(t$,s, 1) :tt$=tt$+tr$:prin 


tt$=tt$+t$ 
iflen(ttt$)>»5dthengosub268 


ttr$; :lk=len(tt$) 

1168 iflk>u+1thent$="":goto112 
2) 

1178 next:t$="":goto118B 


1188 w=1:print:printcl$"Weiter 


schreiben ";rn$" 1) "rf$ 
1198 print"Neuen Text eing.";r 
ng" (2) "rf$ 


1200 getx$:x=val(x$) :ifx<lorx> 
2then 12882 

1218 onxgoto1228, 1368 

1228 printcl$rag$; 

1238 fori=1t054:printrn$p$; :ne 
xt:printchr$( 894) ;:fori=1to1!: 
printrn$p$; :next 
1248 printchr$( 895)" 


Zeilenend 


e 
1258 z2$( 2) ett$:zez+1:tt$="":pr 
inttab( 25)" ... . „Zeile. "Si BrIiNntEu 


sing"###";z-1:g0sub892 

1268 ift$=chr$(995)thenz$( z)=t 
t$:tt$="":t$=""w=ß:return 
1278 goto125® 

1288 printcl$raq$; 

1298 fori=1t054:printrn$p$; :ne 
xt:printchr$( 8994) ;:fori=1to11: 
printrn$p$; :next 
1388 printchr$( 995)" 


Zeilenend 


e 

1318 Forx=1toziz$l z)="":z=1i:go 
sub89® 

1328 ift$=chr$(995)thenz$(z)>=t 
t$:tt$="":t$="":w=Q@:return 
1338 z$( zZ) =tt$:z=z+1:tt$="":pr 
inttebl. 25)" ... »Zeile."z;:printu 


sing" ###";z-1:g0osub89® 

1348 ift$=chr$(895)thenz$(z)=t 
t$:tt$="":t$="":w=ß:return 
1358 g0oto133® 

1368 u=64:g0t0128% 

1378 a=1:b=8 

1388 printcel$:c=b-a:forx=atob: 
printrn$;x;rb$" "rf$;tab(6);2Z$ 
(x) :next:printcd$ 
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<hn> 
<ap> 
<bf> 


<mf> 


<an? 


<nj> 
<jl> 
<fe> 
<oj? 


<pe>39 


TEXTVERARBEITUNG Er 1-5 


1398 poke2835,21:poke2836,0:5y 
s65522 

1488: printrn$"..(T)....Loesche 
Narr BLNDTUSLEN: = #4 A 
1418 print"..:(+ -— ).Blaettern. 
(bb) »Bloecektausch . s.. Ir 

14209. print”. .(ehr$( 295) ”") „End 
Bat an are tm) MENU a ne As 


getk$:ifk$=""then1430 


1440 ifk$="1"then1540 

1450 ifk$="e"then161® 

1468 ifk$="b"then178® 

1478 ifk$="m"thengosub2620:got 
02450 

1488 ifk$="-"thena=sa-1-c:b=at+tc 
:ifa<ithena=1:b=atc 

1498 ifk$="-"thengosub2622:got 
013808 z 


15908 ifk$="+"thena=b+1:b=b+1+c 
:ifb+1+c>66Qthenb=669:a=b-c 
1519 ifk$="+"thengosub2622:got 
01388 

1520 ifk$=chr$( 895) thena=d:b=d 
:gosub262®8:return 

1538 goto138® 

1548 poke2835,21:poke2836,0:5y 
s65522 

1558 printrn$lz$ 

1568 poke2935,21:poke2836,8:5sy 
s65528 

1578 printcd$"Welche.Zeile.sol 


l.geloescht.werden?...... e=Irr 
tung”; 
1588 input" Zeilen-Nr. ";kk:if 


kk=@then 1388 

1598 ifkk>zthenprintrg$rg$rg$r 
q$ra$ra$rg$:goto1542 

1600 forx=kktoz:z$(x)=z$lx+1): 
next:z$( 2)="":z=2-1:kk=9:gotoi 
388 

1618 poke2935,21:poke2036,8:5y 
s65520 

1628 printrn$lz$ 

1630 poke2835,21:poke2836,9:5y 
s65528 

16428 printcd$"Vor welcher Zeil 
e soll eingefuegt werden? (B=Z 
urueck) "5; 

1658 input" :Zeilen-Nr. ";kk:if 
kk>zthenprintrqg$rgq$:g0t01640 
1668 ifkk=Qdthen 1388 

1678 w=BD:e=Q:printcl$"Es koenn 
en maximal 68 Zeichen eingefue 
gt werden!" 

16808 forx=1t0668:next:printcl$ 
:e=1:ifz+1>=668then 1388 

1698 gosub89B:ift$=chr$( B95)th 


ene$le)=tt$:tt$="":t$="":gotoN 
758 
1700 e$le) =tt$:tt$="":t$=""re= 


e+1:ife=61then 1758 

1719 ifz+e=668g0t01758 n 
17290 gosubB9® 

1730 ift$=chr$(295)thene$(e)=t 
t$:tt$="":t$="":g0t01750 


1748 goto1i788 
1758 z=zte:forx=ztokk+te-1step- 


1:z$(x)=z$(x-e) :next 

1760 f=QD:forx=kktokk+te-1:f=f+1 
:z$(x)=e$(f) :e$(f)="":next:kk=s 
D:e=1 

1778 goto138®8 

1788 poke2835,21:poke29036,8:sy 
s65528 

1798 printrn$lz$ 

1800 poke2835,21:poke2036,9:5y 
s655209 

1818 printcd$"Von welcher Zeil 
e ";:input"Zeilen-Nr. ";aa$ 
1828 ifaa$=chr$( 0895) then1388 
1830 aa=vallaa$) :ifaa<lorab>zt 
henprintrq$rq$:g0t01818 

1848 poke2835,21:poke2036,0:5y 
s65528 

1858 printrn$lz$ 

1868 poke2935,21:poke2836,9:sy 
s65520 

1878 printcd$"bis zu welcher Z 
eile “s 

1888 Input" Zeilen-Nr. "sbb:ifb 
b<asorbb>zthenprintrqg$srq$:goto 
18708 

1898 poke2835,21:poke2036,0:sy 
s65528 

1988 printrn$lz$ 

1910 poke2035,21:poke2936,08:sy 
s6552®8 

1928 printcd$ "Vor welcher Zei 
le soll eingefuegt werden ?";: 
input"Zeilen-Nr. ";cc 

1938 ifcc<lorcec>zthenprintrg$r 
q$:g0t01928 

1948 dd=bb+1-aa:ifdd>6Qthenpri 
nt"Block zu gross":g0t0138® 
1958 e=B:e$="":ford=aatobb:e=e 
+1:e$(e)=z$(d) :next 

1968 z=z+dd+1:ford=ztoec+dd-is 
tep-1:z$(d)=z$( d-dd) :next:d=B: 
e=d 

1978 ford=cctocc+dd-1I:e=e+1:z$ 
(d)=e$(e) :next:x=® 

19880 poke2035,21:poke2036,9:5y 
s65528 

1998 printrn$lz$ 

2000 poke2035,21:poke2036,9:sy 
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55520 
2818 printcd$ "Block 1 loesche 
ne lee" ii 


829 getx$:ifx$=""then2428 
2838 ifx$="j"then2968 

? ifx$="n"thenidßf 

850 gotozd2n 

BED Forx=aaetoz:rßl wi =-zilaHdea) 
nextız=2-dd:g0t0137% 

2878 printcl$rn$" Ausdruck " 
zEAD gosub2198 

2898 xx=B 

2108 forx=atok:print#1,chr${®) 
‚ıgosub21?BP:ms=ma+i:ifma/t=int 
ma/t)thenxx=xx+ti 

2118 next 


2128 print"Noch ein Druck? (j/ 
n) ":printrq$rq$:xx=®:ma=® 
2130 gety$:ify$=""then2138 
2148 ify$="j"thenprintrg$ra$:m 


3=Bd:goto2980 : 
2150 ify$="n"thenx$="":y$="":g 
=d:return 
2168 goto2i30 
2178 forzz=1tolen(zäSlx)) 
id$(z$(x),zz,N) 
2188 print#4,ip$; :nextzz:print 
#4:return 
21980 t=609:p=8:3$="9" 
22098 a$="9®":a=valla$) :ifas=fthe 
na=1:b=2:g0t02228 
2218 ifa<ßora>zthenprintrggra$ 
rqa$:g0t02208 
2228 return 
2238 printc1l1$:0pen15,8,15 
240 print#15,"i®":gosuh237&:i 
nput"Dateiname:";cb$:db$="B:"+ 
cb$+",s,w" 
2258 goto2398 
2268 open2,8,2,db$:print"Datei 
"ırn$ cb$ rf$:" wird gespeich 
ert.," 
2278 print#2,z:print#2,u:forx= 
Itoz:ifz$(x)=""thenz$(x)=chr$tl 
95) 
2288 print#2,chr$( 934) ;z$(x):i 
fz$(x)=chr$( 295) thenz$lx)="" 
2298 next:close2:close15:retur 
n 
2308 printcl$:0pen15,8,15:prin 
6415," 10% 

2318 gosub237B:input"Dateinsme 
":cb8:46b$=-"B:"'Hcb$*+", Ss, r” 
2328 gosub2378:close?:open2,H, 

2,db$:gosub237& 

2338 printcd$"datei ";rnf&cbftrf 
$;". wird eingelesen." 

23480 input#2,2:input#2,u:farx= 


:ip$=m 


<em> 
<mi> 


<nı> 
<bn> 


2 1H> 


<]lf> 
<mh> 


<kb> 


<yRs 


<dl> 
<ih> 
<hb> 


<ec> 
<dp> 


<pc> 
<e:j;> 


<]n> 


— Z/ — 
1toz <mo> 
235® input#2,z${ x) :ifz$(x)=chr 
$(895)thenz$(x)="" <#i> 
eB&6B next:close2:closeäißS:retur 
n rn <nh> 
23790 input#15,vV$,w$,x$,v$:ifva 
l(v$)<>ßthenprintv$,w$,x$,y$ <go> 
223820 return <od> 
2398 open2,8,2,0b$:g0sub237?®B:i 
fval(v$)<>63thenclose2:print#1 
5,"s8:"+cb$:goto226ß <dl> 
2eABDO ifvel(vF$)=-63thenprint"Dat 
ei ueberschreiben '";rn$"” j/n ? 

“ <fj> 
2418 getz$:ifz$=""then2410 <dj> 
2420 ifz$="n"thenclose2:closel 
5:g0t02230 <an> 
2438 ifz$="j"thenclose2:print# 
15,"s9:"+cb$:gosub2379:g0t0226 
14) <cb> 
2448 x$="":x=0:qg=Q0:w=B:printel 
$chr$( 14) <fk> 
2458 printcd$spc(14)rn$" Men 

ue ":print <oi> 
2468 printspc(8)rn$"-1-";rr$" 

Text eingeben":print <oi> 
24978 printspc(Bö)rn$"-2-";rf$" 

Text korrigieren":print <ph> 
2480 printspc(8)rn$"-3-";rf$" 

Text drucken":print <mn> 
2498 printspc(8)rn$"-4-";rrf$" 

Text speichern":print <eon> 
2508 printspe( 8)rn$"-5-";rf$" 

Text einlesen":print <ck> 
2512 printspet 8) rn$"=-6-";rrt$" 
Frogrammende":print <bo> 
2520 printspe(8) ran$"—-7-";TE$” 
Zurueck":print <nb> 
2538 printspc(8)"Waehlen Sie " 
:rn$" 91-7." :print <fp> 
2548 print:printspc(5) "Freier 
Speicher =";:printfre(®) "Bytes 

x <jii> 
2550 getx$:x=val(x$) :ifx<lorx> 
7then2550 <fg> 
2568 ifx=6thenprintchr$( 19) ;ch 

r$( 19) ;c1$:closel:close3:close 
4:end <cc> 
25978 ifx=7g0t0208 - <pl> 
e58M onxgosuhb118B, 1370,2078,22 
39,2308 <co> 
2598 goto2448 <hl> 
26QB vol?7?:sound1,908,2 <km> 
2618 return <mk> 
26820: prINtELFEERS".. Feter’s 

„Text. fuer:den»EC16/P4:.::. Er: <fk> 
2638 printrn®". ..<, "chr$(. 095)" 

>.zum.Menue..<RETURN>.Leerzei 
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LE," RER: <pf> 
2648 printchr$( 27) "E"; <eh> 
2658 return <pc> 
2668 rem textverarbeitung ==16 <lb> 
2678 rem 12277 bytes memory = <kh> 
2688 rem 88129 bytes program = <pb> 
2698 rem 09126 bytes variables <de> 
27008 rem 82183 bytes arrays = <lj> 
2718 rem B8162 bytes strings = <bg> 
2728 rem 01677 bytes fre (B) = <ga> 
2738 rem ===================hw <gd> 


TEXT 16 


Fortsetzung von Seite 97 


DIE SIEBEN MENÜPUNKTE 


Nach dem Erscheinen des Menübildes ist die Wahl 
von sieben Menüpunkten möglich. 


— 1 — Texte eingeben 


Es können Texte geschrieben und auch angehängt 
werden, ein Untermenüpunkt läßt Sie das Gewünschte 
auswählen. Wenn Sie an einen bereits bestehenden 
Text im Arbeitsspeicher etwas anhängen wollen, so 
müssen Sie die erste Textzeile mit dem Asterix (*) ab- 
schließen. Allen nachfolgenden Zeilen werden auto- 
matisch abgeschlossen. Die eventuellen Worttrennun- 
gen müssen Sie allerdings selbst vornehmen. Es wer- 
den die letzten 13 Zeilen akustisch unterstützt und 
somit angezeigt, daß Sie sich langsam über eine Wort- 
trennung Gedariken machen sollten. Ist bis zum Zei- 
lenende noch etwas Platz, so können Sie diesen mit 
der Space-Taste auffüllen oder mit dem Asterix (*) 
in die nächste Zeile springen. Vor dem Hochkomma- 
modus (” ”) brauchen Sie keine Angst haben, denn 
falls Sie das ‘Gänsefüßchen’ eingeben, wird es sofort 
in ein Apostroph (’ = chrS (39) umgewandelt. Mit 
dem Pfeil nach Links kommen Sie wieder in das 
Hauptmenü zurück. 


— 2 — Text korrigieren 


Unter diesem Menüpunkt können auch überflüssige 
Zeilen gelöscht oder auch eingefügt werden. Es wird 
nach der Zeilennummer gefragt, welche zur Bearbei- 
tung vorgesehen ist, Die Zeilennummern sind revers 
auf der linken Bildschirmseite dargestellt. Mit den 
+/— Tasten können Sie den Text hoch- oder herunter- 
scrollen, insgesamt bis zu 660 Zeilen (siehe Pro- 
srammzeile 120 Dimensionsanweisung). Das sind ca. 
10 DIN A4 Seiten. Auch können Sie Teile oder ganze 
Absätze verschieben. Auch hier müssen Sie die Zei- 
lennummern vom Absatzanfang bzw. Absatzende 


sowie die Zielnummer eingeben. Dabei wird der Ur- 
sprungblock aus verständlichen Gründen noch nicht 
gelöscht. Erst nach einer Sicherheitsabfrage ‘Block 1 
löschen’, die mit ja beantwortet wurde, wird dieser 
Textblock gelöscht. Auf eine Änderungsroutine wur- 
de absichtlich verzichtet, da ja Zeilen eingefügt und 
auch gelöscht werden können, maximal 60 Zeichen 
pro Zeile. Zeilen einfügen, auch Leerzeilen, werden 
mit dem ‘Pfeil nach Links’ abgeschlossen, Zeilen 
löschen sowie Blocktausch mit ‘RETURN’, 
Zeilennummern werden ebenfalls mit ‘RETURN’ 
bestätigt. Aus diesem Untermenü kann man mit der 
Taste ‘Pfeil nach Links’ in das Hauptmenü zurück. 


 —3- Text drucken 


WICHTIG: Bitte beachten Sie, daß beim Programm- 
start der gewünschte Drucker bereits betriebsbereit 
ist, da ansonsten wichtige Daten unwiderruflich ver- 
loren sein könnten. 

Nach Anwahl des Menüpunktes ‘Drucken’ wird 
sofort der gesamte im Arbeitsspeicher befindliche 
Text ausgedruckt und zwar genauso, wie der Text 
auf dem Bildschirm eingegeben wurde. Es bleibt ein 
Abheftrand von 8 Druckzeichen frei. Der Text 
kann, nach der eingebauten J/N-Abfrage, mehrfach 
zum Drucker gegeben werden. Bei der Eingabe von 
‘N’ gehts zurück in das Hauptmenü. 


— 4 — Text speichern 


In diesem Menüpunkt wird sofort nach Eingabe 
des entsprechenden Dateinamens der im Arbeits- 
speicher befindliche Text auf Diskette abgespeichert. 
Sollte der Dateiname bereits existieren, so kann er 
überschrieben werden, natürlich erst nach einer 
Sicherheitsabfrage des Computers, eine Datendiskette 
wäre hier nur zu empfehlen. 


— 5 - Text einlesen 


Mit diesem Menüteil können Sie Textteile von Ih- 
rem Laufwerk einlesen und nach Wunsch weiterver- 
arbeiten. Anhängen. Blockverschieben etc. wie in Me- 
nüpunkt 2 beschrieben. 


— 6 — Programmende 


Vorsicht: Alle im Arbeitsspeicher befindliche Tex- 
te werden gelöscht, versichern Sie sich, daß alle später 
wieder benötigten Textdaten abgespeichert sind. Es 
erfolgt keine Sicherheitsabfrage. 


— 7 - Zurück 


Durch die Anwahl dieses Menüpunktes gelangen Sie 
an die Anfangsabfrage des Programms zurück. Sie sind 
dadurch in der Lage, andere Adressen oder auch ande- 
re Druckparameter (Schriftarten) anzuwählen. Es 
können damit sogenannte Rundbriefe erstellt werden, 
wenn derselbe Brief an verschiedene Leute (z.B. Ver- 
eine etc.) verschickt werden soll. So und nun viel 
Spaß beim Eingeben und Benützen des Programms 
wünscht, 

Peter Basch aus Lindenberg und die CW-Crew 
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CIRCLE _ 
DEMO 


Wer kennt ihn nicht aus Comicheften oder von 
Postkarten? Garfield, den gewitztesten Kater der Welt 
und noch eine bekannte Comicfigur bringt das Pro- 
gramm allein mit Circle-Befehlen vollendet auf den 
Bildschirm. Wer einen Plus 4 oder C16 mit Erweite- 
rung hat, kann seinen verdutzten Freunden recht ein- 
drucksvoll die grafischen Qualitäten seines Compu- 
ters demonstrieren. 
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18 rem circle demo======plus4= 
28 rem (p) 7/87 commodore welt 
SUmREenNn Fee een 

4aQ8 rem (c) 3/87 by 

58 rem wolfgang hoehne 
680 rem 

78 rem basic v3.5 - 

88 rem plus4 (c16/116 + 64 kb) 

90 rem ====== =, =, === 7 = = === === 
1088 gosub 1682B2- 

+10, scene lLrz eo for 1, 1eB5lord, 276 

olor4,2 

128 printleft$(gd$8,6)" welches 
demo soll ich malen I oder 2 
3." 

130 getkey a$:printel$:if aß" 
1" or a$>"2"then 1228 
148 if a$="2"then graphici,1:g 
oto 1878 

159 2 

1680 rem *##= demo teil 1 Run 
AO 

188 graphic1,! 


19% eircreT,230,53,10,9)),,9%0- 
2080 eircle1,215,53,19,9,45,32% 
‚9® 

210 eirele?, 230,13,42,,170,19% 


220: ci rete] „219, 13,471, ,1320,198 
230 circle1,229,55,3,,90,278:p 
Bin#1, 229,57 

248 circle1,214,55,3,,990,272:p 
aint1,2414,57 
250 geirelet;, 222, 
268 circle1,215, 
58 

27 EEROLET, 229; 128, 49,32, 1728; 
235,198 

28% cirele1, 220 ,43,23,13, 199,3 
22,65 

298 eirele?, 
sun veirule!, 
5,65 

310 Bireleig 
328 circlel, 
330 ceireleT, 


66..0..3 
56:28 293,.198.,8 


170,58,55,,45,75 
240,43,25,13,190,3 


190,58,55,,45,76 
250,73,30, ,4,30 
240,70,28,23,30,14 


5,10 

Sal sczrele 1,235,98, 15,,30,95 
350 eircle1,228,141,69,,45,105 
368 circle1,255,168,52,30,45,2 
08 

370 :cIr21817259,198,235, 13.218, 
3380,38 

380 eire le 1,7202,70, 1, , 94,20 
398 circle1,209,67,6,,330,36® 
490 eirole! ‚243,973, 10,5 350, 275 
a18 eireslei1, 233,26 ,194,.,102,28 
428 circle1,184,56,49,15,80, 12 
22 


430 zircle?, 
89:,.2325 
448 circlel 


458 circlel 
A6B circle! 


0,98 


478 circlel,2 


165,18 


48Q0 circlei 


0,90 


498 circlel 


5080 circlei 
340,88 

3109 circle! 
12) 

5208 circlel 
‚98 

538 circlei 
‚98 


540 cirelsi 


‚115 


559 circele] 
560 eirelelt 


25 


579 circLeN 


2,90 
580 
2,110 


59B circlel 
6202 circlel 
61a For x=1 
eireleN 


628 
90,8*x 


6380 circlei 


98,8°x 
648 next 


eirelel 


e3 
858 for x=®2 


’ 


? 


’ 


’ 


’ 


” 


’ 


’ 


’ 


’ 


’ 


Lu 


’ 


668 circlel, 


AH, BR 


678 circlet, 


‚245-x,85-x 


580 
590 
789 
160, 
710 
228 
738 
‚188-2*x 
7408 
x, 100-2#x 
758 


next 


next 


228 


770 eircle! ,288, 1729-x#+1,97% 


5,148 
780 next 


104 


x 


for x=® 
eirchktet, 
20,20+x 


x 


for x=® 
eircLeT, 


x 


x 


sircle!t,, 


et. rallet, 
#x,1228-2%* 


760 cir@le1,260,187,10-x, 


230,183,5,,175,278 
220,183,5,,90,325 
217,180,6,5,119,24 


‚169,20,10,100, 
‚176,8,5,1190,29 


249,172,8,4,1,48 
164,25,18,17®, 


‚178,4,3,1905,27 
175,5,4,55,279 
173,5,4,65,265 
168,8,4,85,275 


165.,5,4,350,45 
163,;3;,,269, 10, 


148,15,7,308,6 


277, 128,,1547% 810,2 
195, 
191, 
eo: 3 
180,70-3”x, 8, ,300,;, 


160,5,,2098,308 
158,5,,17®,36® 


SIUSYSEIRR, 8, ; 3085, 


»» 


to 12 step?2 
215+x „45.,25,10,220 


235+x,45,25,19,220 


to ? step2 
240,186 ,9-%,B> 8-17, 


to 8 step2 

299,97, 9-8, BO -ZRR 
270,115,9-x,,28-2* 
276 , 135, 10=x, ;,48-2 


3, 


Be) 


EEE. EB 


50 for #2 to& step? 

BeB0 Eirclet, 298 162, 1a, ,;,38%, 
58 
BIO eirchet, 255,80255- AN 78,200 
ee 

BER ei reLe N, 260 73,75%, 5,50, 1838 
”,% 
338 relet , 250,84, 8x, ;340,9%0 
8a0. circlet,248,157, 10-8, ,368, 
98 
3850 next x 
860 For 'x=d to 4 step? 
B7O -SBIEeLeit 12402 „54, He, „220,3 
16 
880 circle1i ,227,165,5-x, 208,3 
2 
B98 :cirele1,249,147,6-x, ,336,3 
14) 
9828 circle1,288,53,5-x,,276,36 
(4) 
919 eirectet;, 1983, 62.,57%, 7299,34 
® “ % 
920 circle1,204,80,.5-x,,160,26 
(4ER 
93@0 next x 
948 For x=Qd to .93 
958 read 3,b 
9608 draw1,a,b 
978 next x 
988 data2dß, 208 73,195,.68 ;2 
085,67;,238,70, 245,73, 240,69,2 243 
;212238,75, 242,8 


998 char1!1,2,80," 
2 auch .Jj/n?” 

1008 getkey 8%: 
S:ıx$=x$+rx$: 


ne du demo. 


=" "afori=Tto 
next:char1,2,8,x$ 


1819 if a$="n"then 15982 

1820 if 8$="j"then 1978 

1838 goto 39% 

19848 

1852 rem *# demo teil 2 Den 
1868 : 

19070 eircelet,99,60,11,8;,;,982 
1889 circle1,94,63,2:paint1,94 
„683 

1898 circle1,97,59,11,8,240,68 
‚98 


1109 cHhrelei, 
‚386,78 


5,4:paint! 


1118. eircle1,102,62,2:psint1,1 
82,62 

1120, ejre le 1,8%, 89,22, 19,212, 1 
0,15 

11382 &FC181 ,; 10E,8D, IT; , 20,270 
1148 sirclet,98,78,10,8,258,29 
8,98 

1158 circhet,85,80,5,4.68.,280, 
ee] 


IEMEINSTBATEOTIS 


<b 1» 
=hp> 
<eh> 


<op> 
<je> 
<kh> 


<1im> 


116% eirele1,78,77,3, +90; 278 
1178 circle1,698,185,39,10,288, 
65,95 i 
1188 circle1,185,58,20,10,150, 
270,98 ie 

1198 eirelre 1,1712, 29, 20,717,35%; 
208 

1208 circle1,99,46,20,10,180,2 
60,88 

21B circle1,94 ‚45,20,10,18%,83 
28,75 

220 äinre Le) „94 18,28. 15800, 
a4 ; 

1282 (shreTeN, 88,3%, 28,.18; 16952 
58,88 

1240 circle1,88,100,380,10,1882, 
225,88 

12580 eireleT,90,135, 30 ,.22,.290, 
15,58 : 
1268. ci.rele.1,94,122,39,23,328; 


62,18 


1278 ceircle1,92,187,30,: 


‚23,300, 
360,35 
1280 circlei, 28,1 15,10,320 
‚202,55 
1298 circle1,188,105,38,10,288 
‚„240,75:paint1,95.95 
13898 circlei,180,105,30,108,;,138 
‚729,783 
1310 circlet,; 94, 121,10, 2135,24 
@:psint1i,83 ‚118 
1328 ITelel;, 88, 130.13, ,88, 168 
1330 cireia!f, 59, 122,6, 278.90 
eg circle1,3 6, 125, 29, 105270; 
583,188 
tass circlel, 35, 125,209:105278, 
28,358 
1360 eircle1,38,100,20,15,125, 
2780,76 
1370, cetrelei,33,.17020729,19,138, 
270,73 
1388 peint1,16,19& 
1398 circle1,25,1380,28,10,148, 
208,98 
1488 circele1,28,161,20,18,8,38 
08,908 
1418 circle1,18,142,7,,50,190 
1429 cirelet ,35,.160%; 20 ,10,.178, 1 
59,88 . 
438 cirslet, tt, 17 ‚,‚9@,1408 
1448 circle1,28,172,18,,90,140® 
1458 circle1,95,161,19,11,230, 
178,98 
1460 eircleTt; E:957 1882,19, 11,250 
‚120,80 
1470 circle1,98,174,7,,8%,140 
1488 circlei,182,173,7,,80,148 
1498 circle?!,79,168,5,,90,308 


Be 


« 


GCGIRELE DEMON 


1588 circle1,380,155,6,,88,272 <db> 
1512 Teirele!, 57,:153,30 10, 145, 
235 - <ad> 
1520 Sircle1,42,151,5:Bpaint1,a 

3,149 <gf> 
1538 circle1,52,54,10,,348,80 <ek> 
1548 circle1,54,60,9,,348,48 <ci> 
15580 circle1,1983,99,12,8,2180,2 

42,98 <if> 
1568 circle1,195,91,12,8,2980,2 

35,98 <jf> 
1578 circle1,134,152,6,3,308, 1 

40,58 It> 
1588 circlei,135,152,7,3.,90,26 

0,75 <ib> 
1590 getkeys$:graphicß:end <dn> 
1608 rem nachspann =========== <ao> 
1618 rem farbcodes/steuercodes <nn> 
1620 c4$=chr$( 9017) :c1l$=chr$( 14 

2 <kk> 
1630 rem irititsestst zeichenfolgen <nk> 
1648 for q=1 to 48 <ol> 
1658 qd$=qd$+c4$ <ob> 
1668 next q <Ft> 
1678 return <bk> 
1680 rem ======-=============== <0g> 
1698 rem 60671 bytes memory <jd> 
1708 rem 12288 bytes grafik <hj> 
1710 rem 8451® bytes program <nm> 
1728 rem 00049 bytes variables <gk> 
1738 rem 080008 bytes arrays <ka> 
1748 rem 00488 bytes strings <ag> 
1758 rem 43424 bytes fre(B®) <fb> 
1760 rem =======-=-===-=-=-===== === <hg> 


BIORYTHMUS 


Mit diesem Programm läßt sich der Biorhythmus ei- 
nes Menschen darstellen. Es zeichnet sich durch seine 
gelungene Grafik aus und läuft auf den Computern 
C-16, C-116 und Plus/4. 

Die Theorie des Biorhythmus wurde vor langen 
Zeiten im ostasiatischen Raum entwickelt. Sie wurde 
aber bis heute noch nicht wissenschaftlich bewiesen. 
Trotzdem sind sich viele Menschen sicher, daß ihr Le- 
ben vom Biorhythmus bestimmt wird. 

Die Zustände der Person lassen sich an Sinuskurven 
ablesen, deren Zykluslänge in folgender Tabelle einge- 
tragen ist: 


körperlich 23 Tage 
seelisch 28 Tage 
geistig 33 Tage 


Zum Programm: 

Nach dem Start wird erst das aktuelle Datum, dann 
das Geburtsdatum eingegeben. Bei der Eingabe des 
Jahres braucht man, wenn die Zahl zwischen 1900 
und 1999 liegt, bloß die letzten beiden Ziffern einge- 
ben. 
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IO rem biorythmus==========016 


28 rem 
38 rem 
48 rem 
58 rem 
60 rem { 
78 rem basic v3.5 

88 rem c16/116/plus4 

90 rem ========-===.==2.=-2=-22202020=== 
180 data -100,160,279,3190,450, 
498 

1180 data 
‚228 

128 printchr$(5) :scenclr:y$=chr 
$( 19) :fori=1to6:readx$:print”d 
elL"x$ 

130 print:print:y$=y$+chr$( 13) 
:next:print"run":y$=yS$+chr&$( 14 
4)+chr$( 13) 

148 keyl,y$:poke2935,90:5ys5636 
A:end 

152 gosub 738 

160 rem titelbild & eingabe 
178 printcl$co4$tab( 14) "biorhyt 
hmus"c4$;024$:dimd( 12) 

1BQO gosub61Q 

198 fori=1to2:ifi=1thenprintc4 
$04$" aktuelles datum :"welsep 
rintc4$c4$" geburtsdatum :" 
288 printc4$"tag :";:inputt[(i) 
:ift(i)silort(i)>31thenprintc2$ 
c2$;:g0t0288 


(p) 7/87 


1986 Dy 
jan lichtenberg 


cöommadore welt 


-149,750-,690,630,71® 


210 printc4$"monat :";:inputm( 
1) sifmt 1)-STornl 2) >32 thenprint 
c2$02r2$,:g0t0218 

220 printcä$" Jahr :"; :inputzj(i 
J:ifjli)<1908thenjli)=4(li)+1200 


238 nexti 
240 ifm( 1)=2andint( jl1)/4)=jl1 
)/4thend( 2) =29 

258 i=1:gosubß4B:3=y: 
649: g=y:ifg>athen 


i=s2:gosub 
run 


2568 graphic1,1:c0lor1,8:color® 
a 

278 rem definieren der symbole 
288 char1,0,90,"5":sshapea$,?,? 
298 char1,2,0,"Q":s3shapeb$,7,7 
=00 char1,0,8,"2":5shapec$, 7,7 
310 rem aufbau der grafik 

s20 graphic, Tieoler1,8 

33@ char1,14,1,"biorhythmus”, 1 
3408 char1,5,22,"S:koerper Q:s 
eele Z:geist" 

350 char1,14,24,"nochmal j/n", 


1 

368 draw1,5,45 t05,158:draw1,2 
‚45t08,45 

378 draw1,2,979t0319,97:draw1,2 
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3-82 41> 


<fb> 


<a,J>? 
<pa> 
<1ln> 
<nn?> 
<im> 
<ni> 


<dJo> 


<ik> 


a nn ——— 


2 


BIORYTHMUS 23 


‚150t:08,152 <go> 878 rem pfiehlt sich, das <cp> 
B9 25-8 -E1:1) het 4a VI /AI8 AAG rem progremm vor dem <de> 
2 <c1l> 3% 898 rem stesrten zu sichern. <ehg> 
398 i=1:x=z+i <ee> . SAR rem =======-====2=0-0eeunn 0 chh> 
228 gcsubBUül «ld> 
ad fori=-2todi mi 1) )2aHz +1 Hexe Sean ae zT Tr NEN I zpleee eie wege 
a2 gosuh5ßd <mh> 
AIG me-iß+idHli-i)ine ig iA <nh> 
448 nexti <ije> 
458 rem detumsanzeiger <hf> 
4E0 drawi1,7+1B8*t(l 1) ,‚45t09+1Q*t 
3 ) 3 158 < 5 &> 
470 getkeyz$:grsphich:ifzg=-"j" 
thenrun { 7 <ol> 
480 end <gb> 
439 rem berechnung der kurven <bb> 
502 j=esinl LIERHL x 23; *h) <eg> 
538 »esint ( 36B Hl "/28ı)*h <fg> 
Ss2eB 1I=sint( 358° %/33) <fo> 
532 KJF9s5-Intlg <n]> 8:KOERPER 8@:SEELE #:GEIST 
549 kkeds-intth <oh> . sus .. 
550 Kl=-95-intt 1*47) zpd> er 
5S6Bß gshapeab, E+10#i,kj,: <ph> 
578 gshapeb$, ?+1QFi,kk,Z <ad> Beispiel: 1987 = 87 
S58B gshapec$, 2+18®=i,Kkl,2 <sp> 
598 return <no> Nach der Dateneingabe wird die Grafik erstellt. Für 
EOQ rem einlesen der tage <di> jede Kurve wird ein anderes Symbol verwendet. 
618 Fori=-itoi2:readd(i) :nexst:ı Schließlich wird eine Linie als Datumsanzeiger gezo- 
eturn <41> gen. Sie makiert den aktuellen Tag. 
620 98ta21,828,.21,230,317,34,21,3 R R  - N 
1,30,31,30,31 "es; hs Beschreibung der Programmzeilen für die Version 1.1 
630 rem berechnen der tage <in> 170- 230 Eingabe der Daten 
ee ee 240 Wenn Schaltjahr, dann hat der _Febru- 
648 y=365* ji) +tli) #r321#mli) >31 sad> ar 29 Tage 
658 ifmli)>2then6B® <cg> 250 Unterprogramm ‘Berechnung der Tage 
E6R jli)=-jli)-i xom> Geburt bis jetzt’ 
670 goto#90 <mi> 260 Auf Grafik schalten 
6BB ysy+tintl.A4mli)+2.3)* 0-1) <mj> 270- 300 Symbole definieren 
6938 y-y+tinti jli}/A) -intl .75+in 320 Bildschirm löschen 
t( Li) 7/1080) *.75) <pa> 330- 350 Text ausgeben 
AB return ns 360- 370 Koordinatenkreuz zeichnen 
718 rem nachspeann =-===7-> =. == <ja> 380 - 440 Zeichnen der Kurven P 
Tag Abi Barbnoisslstäukbeng on 55 460 Zeichnen des Datumsanzeigers 
730 A EI ee “> 470 Tasterturabfrage und Neustart _ 
ser En N a 500- 590 Berechnung der Kurven und zeichnen 
) <ba> der Symbole 
748 col$echrf 149) return <mh> 610- 620 Einlesen der Tage pro Monat 
ISA rem =====-=:-,renuenenssuine din 640 - 700 Berechnung der Tage Geburt bis jetzt 
76EB rem 12277 bytes memary <om> 
7&i rem 10240 btıytes grafik <im> Achtung: Dieses Programm besitzt eine Besonder- 
778 vem B1266 bytes program <de> heit. Es ist zu lang für den C16/116 ohne Erweite- 
780 rem AOMIAR hytes veristles <ld> TUNG, sofern die REM-Zeilen im Programm bleiben. 
7OM rem PÜ2SR bytes arrays «sa,»  . Jedoch ist es so, wie es im Heft steht, trotzdem lauf- 
aan rem ORDER Bytes. Serings <# 43 fähig. Es kürzt sich nämlich selbst. Die Routine in den 
5“ : s Zeilen 120 - 140 löscht alle in den DATA-Zeilen 
3512 rem BE31i3 bytes frei ßi < ji> ; - : 
a rn Ba 100 - 110 vermerkten Zeilen, in diesem Falle alle 
Br ? ’ AIR REM-Zeilen und sich selbst. Die ungekürzte Version 
838 rem programm loescht sich <go> dürfen Sie nicht so ohne Weiteres renumbern. Ver- 
BAD rem teilweise selbst. <ja> wenden Sie dagegen die gekürzte, die sich mit dem 
8359 rem deshalb bitte nicht <mt> Programmablauf selbst erzeugt, so unterliegen Sie 
R&B rem renumbern. es em- <ub> nicht diesen Einschränkungen. 
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LISTING 


KARTEIKASTEN 


Der Karteikasten im Spezial 4/87 fand guten An- 

klang, nur wurde oft bedauert, daß Datasettenbesitzer 

"nicht in den Genuß des Programmes kamen. Deshalb 

bringen wir hier die Datasettenversion. 

Das Programm stellt einen rechnerunterstützten Kar- 

teikasten dar und bietet folgende Funktion an: 

— Karteikasten (=Datei) laden 

— Karteikasten (=Datei) saven 

— Karteikarte anlegen, d.h. Ausfüllen einer noch un- 
beschriebenen Karte 

— Karteikarte ändern, d.h. Ändern einer bereits aus- 
gefüllten Karte 

— Karteikarte suchen, d.h. 
(1) den gesamten Karteikasten durchblättern 
(2) Karteikarten mit einem bestimmten Begriff su- 
chen 

— Karteikarte löschen 

— Karteikasten schließen, d.h. das Programm zu be- 
enden 

— Karteikasten sortieren, d.h. aufsteigende Sortierung 
des gesamten Karteikastens 


Programmtechnische Merkmale: 

Benötigte Hardware 

-— C16/116/Plus 4 

— Datasette 1531 

Programmgröße: 

ca. 16 KByte 

Maximale Kartenzahl pro Karteikasten (=Datei): 
100 Karteikarten 


Da das Programm so konzipiert ist, daß eine Fehl- 
bedienung weitgehendst ausgeschlossen ist, enthalten 
wir uns einer eingehenderen Erläuterung und verwei- 
sen stattdessen auf das Spezialheft 4/87. 
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rem K 
rem ( 
rem ( ingo 
bern 


oa ® 


rem \ 


u 
an 
0) 
m 
r+ 
Pr 
n 


rem 
rem version 
rem kei I + 
rem == = 
& vem * 
'18 
izd rem 
138 fori=1 
next 

48 
52 
ı68 
178 
58 
198 
Bar) 
218 
22 


ung: 


092020 


rem 


t98:K 


untschr&{( 81 
rn$=schrf( 81 
hmf=chr&{ 1 
cehr$(® 
ob$=chrä( 
ro®=chr$t{ 
es$=chrfi( 
LEBSGRFSL 
c1$=" Fort 
nexti 

ea dige"" 
n&:nexti 

248 c2$=c1$+ung: 
258. d2$=a1$+unß: 
eh cA$=en3P+unf: 
278 daAF=d43Erunf 
eBB c6$=c5ftunf: 
280 d6$=45F+tunf 


re$= 


‚ 
ıMm 

> Rn “ 
nun 


a 


ji 


in PD 


Rn "} 


OR 


sBe cB$=-07$+unf: 


312 dB$=37$+und 
320 16$="":fori= 
li$:nexti 

338 rem * 
348 rem 
356 rem 


sbl rem Farmer 


37R ke=] 


380 rem Hersrstatgiargtssfgkarsti 


3968 rem 
4808 rem 
418 
ger 
430 


rem Fra 


rem 


2-2 


ec 


m %3 


TELFRAIF 


dimat[l OB) .kk 


TEN 


ıf seidel 2. 
d wel 


=1t011: 


PER ER 
ZI GR! 


J 


ni ee 
c?$=c6$+und 
:J7$=0&6$+und 
r2$=re$tre$ 


tot: 


16$=1 


anzah 


SRVaRT? 


kartei 


rem =ezmuoerrunmzmonmsecszeımcemscee- 


AS+ 


 korteikarte 
7] - 

A Eirski A) sth 

tohrtt 118) 

159) 

:ahltj=abl 1) +cCI 

+cHhr404120) 

1 193 

ob 2 =a$t BEE RICHT 


{ei} 
in 


m: 


Ss VERS - ES N 


548 NEE Se 
SE fori=i 
$( 832) :nex 
5608 s$( 3) = 
5708 a$i4)> 


SEÖ fori=- 
£{ 183) :nex 
52% a$l4)= 
21414) a$(5)= 
a eu 


SU 


#5 


C 
Jnex 
fd 


(93) 


} 
J 


Syn 


a print 
2 print" 


OrBreimt" 
DTPrime" 
print" 
fori=? 
print" 
Bramt” 
798 next i 
BrIint" 
Brimt 
printr 

zer. 


Punto ndam 


SEES ES ZEN ZEN 
Du 
S8 


u 


S 
S 


rang 


BAER return 


858 rem 
BA rem 
BE7G rem 


85H poke6S 


IE 31288 


print: 


=s$( 2)+chrä$( 112) 
chr$( 188) 
to8312a$l 3) =3${ 3) Hchr 
Ei a 
ati 3)+chr$( 
ehr$t 1719) 

+ A) =a$l A) +chr 


FE) 


Ei 

-3$(4)+chr$i 117) 

chr # \ ı8 2.) 

to3d: al 5J =-a$l 5) +chr 


)schr&£$(l a2?) +chrf& 


hr 186) 
t021:8%#[ 7) = )+chr 
ti 


"as 


n$;" <ret> karte ok 

satz ok ‘:ro$ 
n$;" <home> kartenan. 
> setzanfang ";roß 


Si tele 


385,33: a 


5301,54 


printchr$(5) 


E98 
BE 


Pen ur 


rug= 
F GT’ 


S2G nest 


fori=i 
b2$=b 


18. ruServft 


H Ä £ = as 
farı=it 


rin 
Rt 


t 038 


ZRH le 


<hi> 
<nj> 


KARTEIKASTEN DATASETTE-VERS 


1828 
1230 
1240 


kKSeI)="" 

nexti 
printcs$; 
1058 printrv$ 
1068 printtab( 18) "karteikasten 
v8 3:5" 

1878 printrv$ 

1888 print:print 
1892 printtab( 14)" 
1188 printrv$. 
1118 print 

1120 printtabl 2) rn$;"- fi "iro$ 
;" karteikasten von kassette 1] 

aden" 

1138 printtab(2)rn$;" F2 ";ro$ 
;" karteikasten auf kassette 35 
aven" 

1148 printtab(2)rn$;" 


A karteikarte 


menue:" 


23. "ZRO8$ 
anlegen" 


1158 printtab(2)rn$;” f4 ";:ro$ 
;" kerteikarte ‘saendern" 

Ii160 printtab(2)rn$;"” FF "ıro$ 
;‚" kerteikarte suchen" 

1170 printtab(2)rn$;" f6 ":ro$ 
;"” karteikarte loeschen" 

1180 printtsbl2)rn$;," FF? "ro 


; karteikasten schliessen" 
1198 printtab(2)rn$;" #8 ";roß 
;" karteikasten sortieren" 
12808 print 

1218 printrv$ 

1228 print , 

1230 printtab(2)rn$; "Funktions 
taste ihrer wahl druecken";ro$ 
1240 getw$:ifw$=""then1249 
18580 ifw$<chr$( 132) orw$>chr$t 1 
40) then1242 

1260 w=asc(w$) -132 


1278 onwgoto1288,1310,1340,137 
0,1400,14390,1469,1498 


1288 printhm$;di1$;r2$;rn$;" Fi 
karteikasten von kassette la 
den"; ro$ 
12908 forws=1t0192%:next 
1308 gosub 1579:g0t01942 
131@ printhm$;,d2$;,r2$;rn$;"” 
karteikasten auf kassette sa 
ven";ro$ 
1328 forws=1to128®:next 
1338 gosub2198:g0t01848 
1348 printhm$;d3$;r2$;rn$;" 
karteikarte', anlegen 
"sro 
1358 forws=1t01288:next 
1368 g0s5sub26998:9g0t01948 
1378 printhm$;d4$;r2$;rn$;" 
karteikarte aendern 
"po 


73 


r4 


ıILON 


8.j? 12308 forws=1to1988:next 
sEnT > 1390 gosub2879:g0t01249 
<ko> 1488 printhm$;d5$;r2$;rn$;" #5 
<id> karteikarte suchen 
ee 
<ec> 1418 forws=1t01B%2:next 
<jh> 1428 gosub3228:g0t01848 
<ki> 1438 printhm$;d6$;r2$;rn$;" 6 
<ai> karteikarte loeschen 
<lf> "Po 
<pd> 1448 forws=1t019829:next 
1458 gosub4399:g0t019848 
1468 printhm$;d?$;r2$;rn$;" 7 
<hf> karteikasten schliessen 
":ro$ 
1478 forws=1to1Qd8Q:next 
<ic> 1488 gosub4578:g0t01528 
1498 printhm$;c5$;r2$;rn$;" f8 
<hl> karteiksasten sortieren 
":roß 
<ij> 1588 Forws=1to128®:next 
15180 gosub4339:g0t019849 
<fn> 1528 end 
1538 
<pd> 1548 rem * u-routinen folgen 
1558 rem Karketkasten laden 
<on> 1560 rem arztstarsgsräfaeafsgststerstaen arzeseat 
1578 printcs$; 
<mc> 15828 printrv$ 
<en> 1598 printtab(2)"karteikasten 
<cd> von kassette laden" 
<gb> 1608 printrv$ 
1618 print:print:print:print: p 
<of> rent 
< jm> ed printtab(2)"name des kart 
eikastens: " 
<ee> 1638 kng="" 
<mm> 16408 rem #Hritirarsraraeabagsrag st spspsgsestaent 
1658 rem tast-puffer leeren 
<oi> 186690 rem Marsfararaesraratstarsgarstseseaketatien 
1578 Fori=1to18 
1680 getch$ 
<ee> 15690 nexti 
<do> 1788 en 
<ol> 1710 rem 
1728 rem en dateinamen 
1728 rem ‘* leer -> return 
<gg> . rem EARSHÄRÄRSE GEAR AR ARABIEN AR AR SR SCH 
<fm> ?58 PARTS DE N em ae re 
<bi> 168; 
1760 printchr$( 294) ; Ji$; :getch 
$:ifch$=""tnen1768 
<he> 1770 rem Biest name ok * 
<hk> 1788 ifch$=chr$( 213) then1878 
<dl> 1798 rem *# zeichen ungueltig * 
1808 ifch$<chr$( 935) orch$>chr$ 
(898) then 1768 
<jh> 1818 rem zeichen anzeigen 
110 


IT T 


m eu 
a wu N) 
aD 


m iD co m 
I cn (in 
br} 


mo 


SE990958S 


IDAUC 


Re) 
<. 
y 


DOC oo 10 


SONST PUN—-S 0“ 
S 


a ee 


Net) 
je} 
Ss 


3 
[>] 


>02 
zun30 
eBAR 
eu50 
edules 


TE Er 


rem 


rem 


ABI NE- IN 


ae ee printch; 
: ”" 6 zeichen 
I Ener nSchen Th f 


rem: = lese naenohstes z. 
€ t81 Fon 
BrINt ÜDrINE: Ar T 


x kein dateinsme * 
lentknfj=Bthenreturn 


[ar 


rem bezinn lode-röoutine 


eotf-B 


fori=dtoke 

KREISE" 

nexti 

rem * karteikarte lesen *# 
open2,1,8,kng 
rem %* kartei gefunden 


rem Hr deteiladen ok 
iftl({fi=RBjiendeofithen2#6d 
rem #* k-kasten gefunden 
iffi=2dthenzfßt j 


Brant;primt 


2078 printtsb{ 2)"weiter mit <t 
ie 


sste:> 


eö:return 


2280 


ehep1,6,18,"" tprintrnga'k 


arteikssten wird geladen";ro$ 


2898 


get#2,tm$ 


2108 eof= ( st= 64) 


211 


iftm$=""thentm$=schr$( gaR) 


:80t02148 


P 


ed 
ı38 


a8) 


= 


140 
158 
Ks %) 
2170 
152 
2198 
2288 
2210 
auf 

are 
rFint 


DN- 


n 


©) 


ix8} 


eikas 


58 


2268 
2298 
2300 
ei 


hassette saven 


e72° 


rem ##Hast karte fertig 
iftm$=chr&$( El3jtnenkzekrz+ 


:g0t02178 


KkRSckz)SkhSekz 
rem 1-schleife p. srte 
goto2Bdad 

goto2B1!ß8 

rem karteikssten saven * 
printes$; 

printrvs 


printtab( Öl "karteikasten 


£ 
printrvs& 
BrImESprInt print print 
vrinttah Le "name des kart 
tens: " 

k Bet 

rem #*r t-puffer leeren 
fori=-1Itoi& 

getch$ 

nexti 

PPiNt BE mit 

rem.” lesen dateinanmens *% 


9 TTE-VERS 


4 
' 


FRS 


In 


N) DIN R 


(1) 
ha} 


u 


m mh 
8 B 


S 


T 
on 
> 


Ci 
[N 3.8 
ee N Et a a ee; 
{uS} 


1a Un Zu ah BE SR ER 
in 
Q® 


EN) 
nn) 
Ss 


im in 


10] 


f 


DI TOD 


{el} 


srteikssten 


NO“ 


in 


1b 


5 


“D 
Sn= 


DIN NDTRAN OR 


nın 


' 
a2} 


IT: 


wie 8 


nm 


2 B 


DD DI MD 
Rn m 


seao9o 


{Rs} 


G 


{ 


m 


nn m A 


m 
90 


en 


{ 


Be 


II Mm 


J 
egen mit nummer?” 


4 


A 
a 


au 


‚ION 


rem Fran 
Bbrinttabt 


"168; 


„vrintchr$( 894); 1i$; 'getch 


ei fon "340 

2358 ifch$=chr&i Bi3)then24iR 
2368 ifch$<chr&$( 835) orch$>chrf 
{290% )then234d 


kn&ekn$+tch$ 

printcnh$ 

iflen(kn$) =16then2418 
gutul24ß 

Print iprintiprint 

rem * kein dsteiname # 
iflen{kn$)=Qihenreturn 
rem beginn save-routine * 
ok=8 
PEN 
clGse 


rem #5 fehlerabtrage # 
rem FFHHöR gdateisave ok *# 


ifotthen2548B - 
rem -dstei besteht nicht * 
iffi=-8tihen256B8 
brintiprint 
printtsb( 2) ite 

"wait 289,71 578108 


‚ealosei5tYreturn 
t 


a 
a 


rd gesaveu”; 


Hertmihakr 
ri net 

rem ###3# fehlerabfrage 
iffi=-Bthenok=-1:g0t0265®% 
rem schleife verlassen * 
T=RE 
ok=& 

nexti 
printnnf;,c$ek; 
ectoz24y® 

rem karteikarte 
en=E 
printesf$: 
Briatrvg 
printtabt 


anlegen 


'karteilärte a 
"rstr$t kzarN 


rem *# kKösrte aufspielen * 
gosub?7 12 

fori=fto6 
SSpRE 

nexti 

rem Fr 
gosub5S132 


En 
x 


kärteneing abe 


<em> 
<h ji? 
<co> 
<on?> 
<fi> 
<nl> 
<lb> 
<col> 
<fa> 


ifenthenreturn 

rem maximal 128 karten 
ifkz>18@thenreturn 

rem naechste karte 
g0t02690 

rem karteikarte aendern * 
printcs$; r 

printrv$ 

2898 printtab(2)"karteikarte a 
endern” 

2988 printrvß 

29128 print:print:print 

2928 printtab( 2); :irput"karten 
nummer ";kn:kn=kn-1 

2938 ifkn>kzorkn<dthenprintobß 
‚:g0t02928 

2948 printhm$; un$;un®; un$; ung; 
ung; 
2958 
2968 
2978 
ep=19 
2982 
2998 
3200 


rem ** karte aufspielen 
gosub?1® 
kK$CQ)=-mid$(ekkSCKkn), 1,18): 


fori=1t06 DI 
k$li)=mid$ekk$eknN) ‚ap, 39) 
ap=-sp+t32 

3018 nexti 

38290 printhm$;un$; un$; un$;un$; 
un$;un$;re$;re$;re$;xk$( 2) 

3838 printhm$; un$; un$; un$; und; 
un$;un$;un$;un®;re$;re$;re$;k3 
(1) 

3848 printhm$;c1$;re$;re$;re$; 
k$C2) 

3858- printhm$;c3$;re$;re$;re$; 
k$( 3) 

3068 printnm$;c5$;re$;reft;re$; 
k$(4) | 
3072 printhm$;c?$;ret;re%t;reß; 
k$(5) 

3088 printhm$;cä$;unt;ret;re$; 
re$;k$(6) 

23898 fori=dto6 

3188 KkK$Li)=-"" 

3118 nexti 

31,2 sif=kk$(kn) 

3130 kk${ekn)="" 

3149 hz=kz 

3158 kz=kn 

3168 rem 
3170 gosub5!130 

3188 kz=hz 

3198 ifsz=-@thenkk$(kn)=siß 
3298 return: 

3218 rem ‚karteikarte 
3228 fori=@toke 


suchen 


323@ rem treffertsabelle # 
3240 rem ##%#* initialisieren * 
3258 tf(i)=-1 


[#8) 


nexti = 
printcs$; 
printrv® 


Ü) Ly 
[Kb u LS 2 36) 
Se 
9609 


32980 printtab(2) "karteikarte 35 
uchen"” 

3382 printrv$ 

3318 print:print:print 

3328 printtab(2)rn$; "bitte wae 
hlen 2: no 
3338 print 

33408. printtabl( 2)rn$z* d. Miaro$z 


urshblaettern der kartei" 
3358 print 
3368. printtab(2)rn$y” s 


" uchen einer bestimmten 


"roh; 
karte 


3378 getceh$:ifch$<>r"d"andch$<> 


"s"then337® 

3380 ifch$="s"then383ß- 

3398 rem *: gesamte kartei in 
=408.rem tabelle eintragen 
3418 tz=@ 
3428 fFori=dtokz-1 
3438: tf(tz)>=i 
3448 tz=tz+l 
3458 nexti - : 
S460 rem *% zefundene karten 
234978: vom De Eee rn anzeigen # 
>488 printhm$; un®;un$; un$®; ung: 
und; . 
3498 
3588 
3518 
35208 


fori=-2t04 
prime” . "Se 
nexti 
fori=1to5 
print" 
print" 
S5@ nexti 
569 print" 
20 BEINE 
| 2 prINeErRngE " 
te karte 

>53 arintrnd," <del> 
ern/suchen abbrechen 
3688 forj-ötoke 

3618 tem kein weiterer 
3628 iftf( j)=-1then3?738 
3830 KILO nid kkSl erl 3] 3, 1151 
8) :ap=19 

3648 fori=-1to6 

3658 KBli)=-midgekkätetflj)),ap, 
38) 

23668 ap=-ap+3d 

3678 nexti 

36880 printhm$;un$;un®;un®; und; 
un$;un®;re$;re$;re$;k$(2); 
3698 printtab(23)rn$;"kartef:" 
;strßttflj)+1) 

3782 printhm$; un®; un$;un$; ung; 


naechs 
ea 
blaett 
rer: 


<space> 


tre*., 


112 


El 


un$;un$;un$;un$; re$;re$;re$;k$ 


1) 


3718 printhm$;ci$;re$;re$;re$; 


«$(2) 
3728 printhm$;c3$;re$;ref$;re$; 
*$(3) 
3738 printhm$;,c5ö$;re$;reß;re$; 
"$(4) 
3748 printhm$;c?$;re$;re$;re$; 
K$(5) 
3758 printhm$;c8$;un$; re$;re$: 


re$;k#(6) 


3768 getch$:ifcht<>chr$( 832) an 


deh$<>chr$( A2l)thena76d 


3778 
3788 
3798 
3888 
3818 
3828 
3838 
3848 


Fint 


3918 ifch$<chr$( B32}orch$>chr$ 


ifch$=chr$( 832) then37282 


jrke 

nextj 

return 

rem suchen nach einer 
rem *%* bestimmten karte 
print:print:print 


printtab(2)rn$; "bitte süc 
hbegriff eingeben 


print16$;16$; 
ss$="" 


getch$:ifch$=""then3898 
ifch$=chr$( 813) then3968 


( 127)then3898 


3928 
3938 
3948 
3958 
3968 
3978 
3988 
k 

3998 


ss$=ss$+ch$ 


printch$; 

iflen({ss$) =-32then3962 
g0t03898 
printchr${( 994) ;1i$; 


print print 


printtab(2)rn$;"eingabe o 
Ir 
getch$:ifch$<s>"j"andceh$e<> 


St 


"n"then3998 


4088 ifch$="j"thend4Q42 

4010 print16$;16$; 

4828 print" 

48380 printob$;,o0b$;ob$;ob$;0b$; 
:goto384U 

aQAR printl6$; 168; 


au58 
e 

406% 
4a78 
406882 
4uaR 
aan 
4118 


printrn$; "beginn der such 
"Ir; 

ss=len(ss$) 

z=® 
rem letzte karte kz-i 
fori=dtokz-1 
sa=] 
rem teil-$ x ss zeichen 


+ 


"roß:ip 


HKRAPTEIKASTEN DATASETT ESTER ES TON 


4128 
4138 
4148 
Far 
4158 
4168 
41708 
4198 
4188 
4190 
4208 
4218 
422% 
4238 
kein 
42408 
4250 
4268 
427% 
A288 
42908 
43.3068 
24318 
4320 
oesch 
4338 
a3a408 
PILNE 
4358 
4368 


ts$=mid$(kk$(i),ss,s5) 


PS Iapı ART EB 1 FT BERT SEITE SER TR 0. 


rem ea ee FEST treffer 


Pr 
Ei 


ifts$=sstthentf(tz)=i:tz= 


g0t041982 
sa=sat] 


rem kein erfolg moegl. 


iflse+ss)>ien(kk$(i))then 


goto4128 

nexti 
iftz=2then4228 
gcto428®B 
print:print 


printtab(2)rn$;"es wurde 


eintrag gefunden ";ro$ 
fori=1to5ß3B8:nexti 
return 

rem FH anzeigen der 
rem gefundenen kerten 
goto2488 

rem ** k-karte loeschen 


printcs$; 

printrv$ 

printtab(2)j) "karteikarte 
en" 

printrv$ 


print :printiprintprint: 


printtab(2); 
print"kartennummer = 


"> 1ISZTI$H 1IE: LIES, !inputkn:kns 


kn-1 


4378 ifkn<sBdorkn>kz-1Ithenreturn 


4388 
4398 
ce 
44080 


aaa 
ge to 
4420 
4430 
4448 
4458 
4468 
44708 
44808 
4498 
4500 
4518 
45282 
4538 
te wu 
4540 
4558 
4568 
457% 
4588 
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print:print 
printtab(2)rn$;" 


1oe.s 


stehe Fein e "a8 

printtab(2)rn$;," <!> 
loeschen ":ro$ 

printtsb(2)rn$;" <beliebi 
ste> kein loeschen ";ro$ 
fori=-1t018 
getch 
nexti 


getch$:ifch$=""then4458 
ifch$<>"!"thenreturn 
kk$Ckn)="" 

kz=kz-1 
fori=kntokz-J 
kk$li)=kk$lit)) 
nexti 

pPrintiprint 
prisnttasl. Dengg Ti! 
rde geloescht alle 3° 
fori=-1to5889%:nexti 


return 
rem k-kasten schliessen 
printos$; 


printrvf 


kar 
‚ro$ 


4598 printtab(2} "kerteikasten 
schliessen" 


4688 printrv$ 


4618 print:print:print: print: ) 


rint 


4628 printtab(2)rn$; "karteisic 
herung erwuenscht „x j / n >"; 


ro$ 
4632 getch$ 


4648 ifch$<>" j"andcoh$<>"n 


4638 


4658 ifch$="j"thengoasub2192 


4668 fori=-1to1® 
4678 getch$ 
4689 nexti 

4698 printcosß$; 
47808 printrv$ 
4718 printhm$; 
4728 Ffori=1t0o29% 
4738 print 

4748 nexti 

4758 printrv$ 
47608 printhm$; 


47978 printrn$;unf;un$;un®;un$; 


UNE SR r EB 
E) t e n aa 


4780 printrn$;un$;un®;un®;" 


ersion 2.8 
"-ro8$ 


47938 printrn$;un$;un$;un$;" 
ingolf seidel 


ce) 1987 by 
117) : ro$ 


4800 printun$;un$; un$;un$;un$; 


un$ 

4818 return 
48280 rem 
4830 printcs$, 
48409 printrvs 
4858 printtsb 
sortieren" 
4868 printrvuß 


48790 print:print:print:print: 


rint 

4888 printteb(2)rnf 
lerung beginnt "POS 
4899 rem First binarys 
4900 n=kz-i 

4918 fori=iton 

4920 1=8 


49338 r=i-1 

a949 tm&=kk$l(i), 

4958 ifl>rthen5822 

4968 meint((1+r)/2) 

4972@ iftm$skk$lm)then5922 
4388 1=m+1 

4990 goto495B2 

5288 r=m-1 

5812 g0t04952 


k-ksasten sortieren 


2)"karteikasten 


<fh> 
<go> 


5822 Forj=-i-itolstep-i 
5R3B KkSlj+1) SKK j) 
5849 nextj 

585@ kKK$(1)=tm$ 

S5Q50 nexti 


5878 print:print 
5088 printtab(2)rn$;" sort 


ierung beendet Ra 
5998 fori=1to5S@2%:nexti 
5188 return 
5112 return 
5128 rem *#### karteneingabe 
51380 zmax=21:35z=0 


5148 ho$ß=hmn$:cuf=ung+unft+ung+u 


n$+tun$+tun$:crfere$+tre$+tre$ 
S458B fo$=hoß+teuß+er$ 

5162 printFfo$; 

5178 rem cursor einschälten 
5188 printchr$(894);1i$; 

5198 getchß: ifch$=""then5190 
s29a0 rem #HHrHTeRinn satz ok 
5218 ifch$=-chr$( 854) then56880 
s228 ifch$=chr$( 213) then5448 
52309 rem Fraser karte neu 
5248 ifch$= ie ge 

5258 rem *# 3 satz neu 
5268 chf-esi hengänn 


5278 ifch$<schr$( 832) orch$>chrä 


( 127)then51B2 

5288 printch$; 

5290 kK$(sz)=k$(sz) +chB 

53808 rem s X neue zeile 
5318 ifpeek( 2922) 
33:g0t05248 
5322. Tem "Z%, 
5338 80t05188 
5340 sz=sz+l1 
5358 rem FH##s#at karte voll 
5368 ifsz=-?then5448 


weiterschreiben 


537® ifsz=-2thencuß=cu$+ung+ung 


+un$:goto539Q 

53320 cu$=-zu$+unß+und 

5398 Fo$=ho$+cußd+tcer$ 

5490 printfoß; 
weiterschreiben 


5, 
5438 karte / voll 
5 ) abgeschlossen 
5458 rem leere körte = end 
5460 ifsz=-üthenen=-1:g0t055 


‚a fori=-2toß 
5488 ifi= Eee ee 


Oo (in 


KBLÄ)=KSCI) +midgCb18, ‚18-len( 


K$(i))) 


5498 ifi>dandlen(k$(i)) <3dthen 
1,380-len( 


KBLI)SKPeIi)+midgeb2B, 
kK$li))) 


‚5588 kKk$ekz)=kköekz)+Khli) 
114 


——————  — — —— [jqäqjäjzjj]jj [Sc nn 


=zmaxthenzmax= 


Ey 


5510 nexti 

5520 kz=skzrl 

5538 return 

5548 rem k. neu beschreiben 
5558 fori=-dtoß& 

SB Re" 

5578 nexsti 

55882 rem karte beschreiben 
5598 goto51i3d 

5688 rem #** z. neu schreiben 
S61IB Kelsz) =" 

5628 ifpeek( 282) =3thenS5652 
5638 printli$; :goto56s28 

5648 rem *Fr Kietti 4, zeile 
5658 ifzmax-21then5i3d 

S66B rem HH 2 = zeile 
5672 gotoS51S% 

56868 rem zeile sbschliessen 
5698 onsz+1g0to5?788,5718,57% 
57228,5718,57210,5719 

5788 K$Lsz)=k$isz)+mid$l bi, 
18- 1en(k${ sz})) :goto5”?38 
5718 kK$isz)=k$L sı) tmid&(lb2$, 1, 


38-len(k$(szj)} :g0toS73& 


5728 
5738 
5740 
57582 
5768 
5778 
5780 
5798 


rem * z. voll markieren 
poke2B2,zmax 

rem “ nsechste zeile 
rem *rr=#Hr#n beschreiben 
goto531R 


k-kasten => 
68671 bytes 
13157 bytes 
2Ba231 bytes 
auBS2 bytes 
26713 bytes 


39678 bytes 


rem 
rem memory 
rem 
rem 
rem arrays 
strings 
free 


rem 
rem 


Tem <=m=merrzıımesmemmuesemennmen 


rem schtung! achtung! 


rem ksssettienversion 


Rem 


program 
variables 


16/116/p4 


KAP TEE ASTEN DIA TASEITTE- VERS ZTZON 


SER? 
<hm> 
in? 
<on?> 
<hj> 
<mm> 
<keo> 


<ph> 
<le> 
<ap> 
<kh> 
<iT> 
=> 
<mi> 
<rık> 
ı03> 
<gd> 
<pa> 
<xfs> 
<ec> 
<ig? 


<be> 


<Hos- 


<je> 


FUNKTIONS- 
PLOTTER 


Kurven grafisch darstellen, Kurven plotten. Bis zu 
9 Kurven können auf dem Bildschirm dargestellt, und, 
falls ein solcher vorhanden, auch mit Hilfe des Com- 
modore-Plotters C-1520 zu Papier gebracht werden. 

Nach dem Einladen starten Sie das Programm mit 
RUN. Nun erscheint das Menü. Es werden Ihnen meh- 
rere Vorschläge für den Programmablauf gemacht. 
Normalerweise geben Sie nun eine 1, um eine oder 
mehrere Funktionen einzugeben. Jetzt werden Sie 
nach der Anzahl der Funktionen gefragt. Geben Sie 
z.B. eine 3 ein. 

An dieser Stelle muß darauf hingewiesen werden, 
daß nach der ersten Funktion der maximale Y-Wert 
berechnet wird. Falls in einer der folgenden Funktio- 
nen (2 bis 9) ein größerer Y-Wert berechnet wird, er- 
scheint dieser nicht mehr auf dem Bildschirm. 


ne 
Am ss . 
en 

SEEN. 

za). T 


= BIER2IIIE 


—. 
x 1asıe > 


Geben Sie also z.B. “sin(x)” ein und drücken RE- 
TURN. Nun wird die Funktion Y2 abgefragt. Geben 
Sie z.B. “cos(x)” und für Y3 = “sin)x x)” ein. Danach 
wird der maximale X-Wert abgefragt. Geben Sie 3.14 
ein, und ihr Computer wird alle Funktionen im Be- 
reich zwischen X= -3.14 und X= +3.14 berechnen und 
auf dem Bildschirm darstellen. 

Nach dem Zeichnen der einzelnen Funktionen be- 
tätigen Sie eine Taste und gelangen so in das Menü zu- 
rück. Sie können sich jetzt entscheiden, ob Sie neue 
Funktionen eingeben möchten oder nur den Bereich 
der bereits eingegebenen verändern wollen. Außer- 
dem können Sie dargestellte Funktionen abspeichern 
oder neue Funktionen einladen, z.B. FOURIERENT- 
WICKLUNG. Weiterhin ist es möglich, die dargestell- 
ten Funktionen auf den Commodore-Plotter C-1520 
auszuplotten (Nur bei FUNKTIONSPLOTTER 2). 


Zur Darstellung der Funktionen: 

Bei der Darstellung auf dem Bildschirm setzen sich 
die einzelnen Funktionen aus 320 einzeln berechne- 
ten Punkten zusammen. Bei der Darstellung auf dem 
C-1520 besteht jede einzelne Funktion aus 480 Punk- 
ten. 
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FUNKTIONSPLOTTER 


12 rem 


funktionsplotter==plus4 


28 rem (»2) 7/87 commodore welt 
38 rem =======-=-===------=--70n- 
40 rem (c) 3/87 p. rudzynski 
52 rem 

60 rem 

72 rem basic v3.5- 

88 rem plus4 (c16/116 + 64kKkb) 
90 

128 

118 

128 

138 

148 

158. : 

160 dim b$(9) - 

170 eolor 8,1,1vweelar 1,2,55008 
Ior 4,1, 

188 scnhelri’grepkhie @:prine chr 
$( 14) 

198 char 0,9, 1,"FUNKTIONSFLOTT 
ER" 

202 char 8,8,4, ‚PEs koennen meh 
rere Em ei anen DIENEN Tre 5 2 


eitig ne werden ! 
218 char 8,6,98,"Funktionen ei 
ngeben =1" 


228 char 8,6,180,"Neuer Bereich 


230 char 8,6 ‚„"Abspeichern.. 
ER SR ee =3" 

24B.:char 90,6,.14,"Einladen.:..;- 
ER EN as =4" - > 

28% char 0,6, 16,"Ausdrucken (C 
=15208) =5” 

250: ChNar"B, 6, TE, "TENdR:. . a... 
SUARHLE 4, =6" 


278 char 0,2,22,"Erstellt 
ee am 1.3.1987" 
280 char 9,12,24,"Copyrient (e 


von 


Ke 

290 getkey aß:a=svallaß):if 8<l 
or 3>6 then goto 298 

30880 on s goto 370,659, 1468, 161 
0,17690,2430 

310 " 

328 rem MAR SESBSE SR Ar ap SL ap apart tt 
3380 rem funktionseingabe # 
348 rem MEARSEABAR SEIFE SFR STAR SE et ara 
35% : 

368 

370 schelr 

388 input"Anzahl der Funktione 
n =";a$ 

398 b=valla$) :if bei or b>9 th 


en goto 378 
a20 for c=l 
418 scncelr: 


Eo=-b 
c$="Funktion Y"+str 


<ehg> 
<pk> 
So? 
<en> 
<mb> 
<nl> 
<d> 
<I> 
<ge> 
<1lm> 
<ki> 
<kg> 
<gc> 
<lh> 
<na> 
<bg> 


<. 112 
<de> 


<ol> 


<in> 
<he> 
<en> 
<aj> 
<1lm> 
<fp> 
<gl> 
<nh> 
SER> 
<fh> 
<md> 
<hb> 
<am> 
<co> 
<ia> 
<3j3jo 
<kd> 
2 vl Be 


<1In> 


<ih> 
<bo> 


Blc!+ 


4280 printcä:printhe$gr$;:input 
bBec) 
38 next 
448 scnelr:printehrä( 144); 
450 e$="" 
468 For c=i tod 
4708 fF=298*c+848 
4808 print #;"y";"=";b8(0)," 
498 printrf+1 er BR m; a ehr 
8( 34) ;b8(o) schrä( 34) . return” 
508 e$= e$+chrä$( 13) +chra$t( 13 
518 next 
s2B print” 58% b=";b 
538 print:print"goto 53@8" 
548 key 1,chr$( 14) +chr$( 13) +ch 
r$( 13) +chr$( 13) +e$ 
558 poke2035,09:5ys3556354 
560 color) T,7%;4 
578 end 
580 b= 2 
598 gosub 2638 
=1277] 
B61IM rem Hrmmsarsaetararsratseiespar 
628 rem * ae von Sr max” 
53% rem I SE IE SL SU am SC 10 U Mad De Su au ae ME 3 an 
540 
580 Solar 1,.2,8 
6680 scnelr 
678 print"Geben Sie jetzt den 
maximalen zu berech=.......... 
nenden X-Wert ein." 
588 print:print:input"Maximale 
r X-Wert =":aß 
598 d=vallaß):if d<s=® then got 
o 668 
28 gosub 2478 
710 g=328 
728 gosub ?3%:g0to 1188 
730 dx=2*d/g 
7a0 yy=-ß® 
782- for X==-d to d step dx 
‚68 gosub 868 
778 if absty)>yy then yy=y 
7880 next 
798 return 
380 
ET: 
828 rem SSH IH IH EN U HUN Min 
838 rem ablegen der Tab Rage 
BAD rem Hrstssstatarat set ar page stieg ich 
850: : 
360 
878 trap 26908 
830 
898 trap 2688 
980 
918 trap 2620 
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<xoe> 
<dJb> 
aa> 
SE > 
sfk> 


ug? 


<nh> 


<hk> 
<mf> 
<ijib> 
<ja> 
<jk> 


<hl> 
<mf> 
<g3e> 
<1lm> 
<am> 
<RE> 
<je> 
<ip> 
<dk> 
<kd> 
<1lm> 
<gd> 
<ho> 


<kn> 
<iın?> 


<ip> 
<bi> 
<fg> 
<ho> 
<ega> 
<shk> 
<jh> 
<cf> 
<ıh> 
<jb> 
<kh> 
<fn> 
<ah> 
<seoc> 
<jk> 
<hg> 
<ip> 
<iJ? 
<ai> 
«kn> 
<bm> 
<mb> 
<da> 


% 


> Oo Oo Wo 5 od 
seeavyaunPp wN 
SSSSSS OS SCS 


8 
1818 


1028 
1838 
242 
1058 
1068 
1078 
12808 
1898 
1128 
1118 
1128 
1138 
1148 
1158 
1168 
1178 
1188 
1198 
1280 
1218 
1228 
1238 
1240 
1258 
1264 
12978 
1280 
1298 
0,94 
1308 
1310 
13208 
1330 
1348 
1358 
13608 
1370 
1388 
398 
1408 
1410 
14208 
1430 
1440 
1458 
146% 
1470 
:got 


FUNK 1 LOHN 


trap 2688 


88 


ON 


ar 
ce 


oe 
eoah 2688 
ER 26B 
trön 26Rl 


trap 2ZABG 


scnclr: 
ehaör,2d,6,"- 
char,28,18 

EeHaRz9,, 
ehar,29, 12 
draw,®ß, 


graphic 1 


” 


(es 

N ı 

102 0 319,100 
draw,159,8 to 159,208 
char,.2,6,str$l y%72) 
char,21,18,str8$( -yy/2)} 


cher, 7, 18,.s8Er&t 3/23 
char ,27,13,str$(x/2) 

rem BEE a IM IN MI I ME a 
rem zeichnen der . kurven 
rem Pi sa a ae a a a ee 
For c=i 6 8 

tor Rd: E60 9 Stern I 


on = gosuh B64,8809,90d,92 
2.960,988, 1880, 128 


i=1200-10Q*y/yy 


draw,319*x/2/0+159,i 

next 

eg" yrstngl oo) Hteatabgt ec) 
char z0,c#2-2,.0$ 

grephic 1,8 

next 

char „Uu24,"2 taste >" 
getkey ab 

eoto 178 

rem Ysaeteeeeienaeeganeee 
rem * graphik speichern 
rem *# AR AR AR SEE AHAN SR SR SESESEAR SE SEES 
gosuh 252% 

it k=1 then open 1, 1.k8 


o 1498 


SPLOTTER 


<nt> 
<ee> 
<oj? 
<#i> 
<pn> 
<em> 
bb > 
<jia> 
2565 
<dj> 
<h j? 
<se0> 
<i> 
RIO 
<di> 
<dn> 
<i> 
<no> 
<mh>» 
se? 
23-3 
<mh> 
<ho> 
<1j> 
<di> 
SOB> 
<ks> 
<ch> 
<pi> 
<xau> 
<end> 
<iD> 
<oh> 
OR > 
<i-h> 
<km> 


<kd> 
<ef> 
<gd> 
<kp> 
<1l0o> 
<dk> 
<lg> 
<nh> 
SL 
<gi> 
<je> 
<1h> 
<mb> 
< ER 
<tr> 
<kp> 
<ol> 
<3ap> 


<ni> 


1486 
1498 
1588 
1518 
1528 
1538 
1548 
1558 
1568 
1578 
1550 
1598 
1620 
181% 
1620 
:g0to 
15630 
1640 
658 
1668 
1678 
1680 
1698 
1788 
1710 
1728 
1738 
1740 
1758 
1760 
1778 
3 
i788 
1798 
1508 
1818 
e® 
1830 
1848 
1858 
1868 
1578 
1880 
1890 
1908 
1918 
1928 
1938 
1948 
1958 
1968 
1978 
1982 
1998 
2B8U 
2818 
ed208 
28308 


117 


öpen 1,858 
print#T,b 
for c=1 
print#? 
next 

close 1 


2) 


goto 17 


e 


& 


2520 
then 


gosub 
a 
164% 
epen 1,8,2%, 
input#1,b 
ton il 
input #1 
next 
close 1 
goto 44 


rem HRRBRSHREHBRI He 
plotten auf 66-1522 


rem us 
rem 


g=ABR 
copen3,6,3: 


SE 
3,8 


=} 


open 
open 
for 
print #2,C 
c$="y"+strä 
print#3,c$ 
next 
print#2,8 


SEHEN. 


to. B 
‚b$t c) 


öpen 1;.1 


Kt" en" 


to :B 
Es Bil zer) 


to b 


FeXk. 


SEM NINE HKM, 


print#3,' 


:open 2,6, 


I 


="+H$( 


pa=-®:pb=192:pp=48 


For ca Ea 

for i=pa to pb step 2*pp 
prints dt seid 
PrintZ1,"Mm „IFpp , 402 
Brintzi1gte" ‚„a#bb,8 

if i-pb then - goto 1948 
print#1,"m",i+2*pp,2 
next = 
pa=239:pb=431 

if c=i then getoı 1988 
print #1 ,."m. „23950 

next 

pe=-®:pb=-12R:pp=5& 

For c=% 8. 

fer 1=p2 to pb step 2* 
Brint 71.40, >i 
print#1,"m",&,-(i*+pp) 


laden 


=) 


pp 


ı close 


<ok> 
<30> 
<go> 
<nk> 
<hh> 
<na> 
<c1l> 
<eo> 
<fi> 
<cj? 
<an?> 
<dn> 
<ia> 


<kg> 


<gm> 
<hm> 
<ijb> 
<af> 
<fn> 
<ao0> 
<ah> 
<mb> 
<oe> 
0.> 
<1lp> 
<hk> 
<nd> 
<bg> 
<hl> 


<pc> 
<fe> 
<di> 
<jm> 
<StE> 
<kk> 
<I> 
<14> 
<gh> 
<enga> 
<na> 
<mj?> 
<mg> 
<@d> 
<bf > 
<jn> 
<ba> 
<bn> 
< jm> 
<ac> 
<oft> 
zxef> 
<eä3> 
<fc> 
<el> 
<oe> 


ee | | 


« 


FUNKTIONSPLOTTER ec 


2848 print#1,"d",479,-(i+pp) <ah> ı or k>2 then goto 2528 <hb> 
2050 print#1,"m",479,-(i+r2*pp) <pj> e558 print:print <yl> 
2068 if i<pb then goto ?9538 <ch> 2568 if k=2 then directory <fj> 
2078 print#1,"d",B,-(i+2*pp) &ta> 2578 print:print:input"Name de 
2Q288 next <kk> r Graephik";kKk$ <cp> 
2298 pa=291:pb=301 <bk> 588 return <km> 
2108 if c=1 then goto 2128 <oc> 390 : <gc> 
2118 print#1,"m",479,-201 <ag> 608 resume next “ <ik> 
2120 next enc> 26518 rem nachspann *========== <ge> 
2138 print#1,"m”,1290,-238 <al> 2628 rem farbcodes/steuercodes <nd> 
2148 print#3,-2*d/5 <ak> 2638 rn$=chr$( 18) :hes=chr$( 91 
2158 print#41,"m”, 313,20 <ef> , 9 <mg> 
2168 print#3,2*d/5 <hd> 2548 c3$=chr$( 829) <fj> 
2178 x=2*d/5:gosub 2478 <ce> 2658 rem *##+ zeichenfolgen *** <la> 
2180 gosub 738 <1ld> 2668 for q=1 to 16 <co> 
2198 scnclr <ho> 25678 gr$=qr$+o3% <pm> 
2208 print#1,"m",259,142 <km> 2688 next q <fFf> 
2218 print#3,yy/2 <dc> 2692 return <bk> 
2228 print#1,"m",250,-179 cehf> 2708 rem =========-==2=2=2=2=20=0- <cg> 
22380 print#3,-yy/2 <pb> 2718 rem 60671 bytes memory <jd> 
2240 for c=1 to b <ff> 2728 rem 12288 bytes grafik <hj> 
2250 print#2,c <al> 27308 rem 05267 bytes program <og> 
2260 for x=-d to d-dx step dx <mk> 2748 rem 80098 bytes variables <go> 
2278 on c gosub B68,889,909,92 2750 rem 00040 bytes arrays <ke> 
0,940,969,980, 1000, 1928 <hk> 2750 rem 80541 bytes strings <am> 
2288 print#1,"m";479*x/2/d+248 2778 rem 42437 bytes fre(B) <fe> 
‚200*y/yy+126 <mo> 2780 rem =======----=-========= chg> 
2298 print#1,"d";499*x/2/d+248 2798 rem bitte blanks statt <ec> 
‚2e0Q*y/yy+128 <nb> 2388 rem punkte in folgenden <ij> 
2308 next <ig> 28128 rem zeilen eingeben: <nb> 
2310 print#1,"m",80,148 <lk> 2828 rem 288-260,670,2440,2488 <ko> 
2328 next <jl> 2825 rem alle zeilen eintippen < > 
2338 print#1,"m",o,-2808 <go> 2830 rem ====-========--=====2= ckj> 
23408 c1l0Se 3 <a9> nn nen nn De ee ee En 
2350 elose 2:close I <ber 70o— 
2368 goto 178 <gc> 
2370 : <Ir> 
2380 : <ip> 
2398 ERBBRRRRESSSEIRENE oga> 
2408 <ck> 
2420 : <1h> 
2438 scnclr <gp> 
2448 print:print:print:print:p ” N 
PRENDSS BER IST en Re Eee End = j al 
e" <aj> . vo 
2458 end <513 
a nn FLÜCHTLINGE IN 
2498 scncelr:graphic 2 <np> ! &. OSTASIEN: 
2480 a$=chr$( 130) +"...... Funkt ö r U: STERN ne —— 
ion. wird heraskrer" den „; Menschen in Not brauchen Hilfe: zuverlässig, 
> . 2 ne ... schnell, wirksam. Die beiden kirchlichen Hilfs- 
ken un NEN = „ werke nehmen ihren Auftrag ernst. 
2510 : <bib> Deutscher Caritasverband. Konto 202 
2528 senelr:graphice 8 ih KASI Postgro Karlsruhe oder Banken und Sparkassen 
2539 print:print"Kassette (1) Ds Diakonısches Werk Konto 502, Postgiro Stuttgart oder 

ee. e: ; MEER Banken und Sparkassen. OSTASIEN: 
oder Diskette (2) ? <mk> 


2548 getkey a$ß:k=vallaß):if ke 
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FSENTEOLSEE TER 


POINT 
COLLECTOR 


Ziel des Spiels ist es, mit Ihrem Männchen Punkte 
auf dem Bildschirm einzusammeln. Hierbei werden 
Sie von einem Geist gestört, der zuerst beliebig durch 
das zufällige Labyrinth irrt (blau), sobald er aber Ihre 
Fährte hat, Ihnen nachjagt (grün). Haben Sie 20 
Punkte gesammelt, so kommen Sie in das nächste 
Bild. 


Vorhandene Punkte je Level: 

: 35 Punkte 

: 30 Punkte 

25 Punkte 

22 Punkte 

20 Punkte 

22 Punkte, Labyrinth schwieriger 
22 Punkte, noch schwieriger 


= LU 


SS PWwWND- 


Gesteuert wird mit dem Joystick in Port 1. Für Moni- 
tore als auch Fernseher geeignet. (Es lohnt sich der 
Anschluß an den Farbfernseher!) 


BEEERESREUEEEEREREEUKERER 
= =. ; = AAruRununnn 
® 
uns. & 


== 
u. un 88 
® S 


2 u. = & | S ® 
SRUREEBEEERENERSERBERERHSESSERSERERSEREN 


10 
20 
32 
48 
50 
0 
70 
38. 
92 
180 
7 
11@ 
120 
138 
140 
158 
160 
8,1 
170 
9,6 
180 
TZ; 
198 
0,2 
2808 
a8 
218 
133 
220 
238 
96 


rem pointcollector=-=====n16 
rem (p) 7/87 commodare welt 
rem ==========>>=2=2=2=202====2=© 
rem (c) 19897 by 

rem christian Krebs 


rem 


rem basic v3.5 


rem c16/116/plus 


JE 


rem == szzemseassseseesses 


Sal srl, V:c9OLord, Tecolfor!T 2 


forb=Btos& 
reada 


poke15RdR+b,a 


nextb 

sys15222 

dsts169,8, 
33 


14% 


‚248,2,123,28 


data212, 169,208, 133,209, 16 


0,133 


data211,141,19,255,160,0,1 


288 


dsta145,218,2208,288.249, 


09,238 


data211,165,211,201,64,208 


7,169 


data192, 14. 


data52, 133,56 
dats169,246,133,51,133,55, 


248 fora=8to39:readb:poke 15368 


26, 


126, 126,138, 


‚0,126,226,195,243,243,243, 


15 


WW 


‚255, 126,102 


270 data126,255,153,153,255,25 


+3a,b:nexta 

258 datsaß, 126, 

126 

243,126 

268 data6ß, 126, 
‚182,102 

5.,268.126 

280 datsß,8,0,808,2,0,2,8 
298 1=1:m=-7:volB 

388 ifl>Sthengosub98ß 
318 d=B:scnclr 

320 


fora=3112t03151:pokea,®:po 


kea+t92®R ,B:nexta 
338 fora=3152t04231 
348 b=int(rnd( 1)*m) 


358 ifb=2thenpokes,B:pokea-1ß2 
4,113:soundi,780,2:g0t0368 


368 


nexta 


378 fora=3152t03992:b=eint(rnd( 


1)* 


45) 


388 ifb=-4thenpokes, 1:d=d+1:pok 
ea-1024,184:sound2,758,2:gosub 

988:ifd=cthend1d 
396 nexta 
aue ifd<cthen3?d 
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9 ENTE EEE TIER 


418 fors=1t0o4:sound2,6848,24: 
18:fort=1to24:nextt:volö:nexts 
sound2,608,58 


4208 
438 
440 
4508 


460 
470 


488 
498 
50% 
518 
520 
538 
548 


« 


a=3481:e=3558:i=--1:b=-8 
pokea,2 

Jo 

sound2,7088,1 

ce=joy( 1) 

ifc=8then5?® 


ife=1thend=-48 


ife=-3thend=1 
ifc=-5thend=48 
ifc=?thend=- 


ifpeek( a+td) =2thenSBB 


ifpeek(a+d)=1Ithenb=b+1:gos 
ub19008:ifb=28thenl=1+1:g0t0308 


558 printchr$( 19) "points 


." 
’ 


:pok 


578 ife=-athen?88 
588 ifpeek(e+1)=4thent=1:goto6 


38 


5980 ifpeek(e+48) =4thenf=48:got 


0638 


898 ifpeekle-1)=-4thenf=-1:goto 


638 


618 ifpeek(e-48) =4thenf=-40:g0 


to63 
628 


630 ife=sthen?88 
648 pokee+f,3:pokee+f-1824,101 
:pokee,32:e=e+tf 


6508 


level 


ea,d4:a=atd 


g0t0662 


loop 


ii 
568 pokea+d,2:pokea+td-1024,103 


668 ifpeekle+i)=Qthen698 


678 ife+i=-aore+4R=-aore-4Al=aore 


-1=83 
688 
690 
708 
718 
728 
730 
7408 
758 
7608 
778 
e+ti- 
o658 


788 forp=1to3:sound2, 
19: forg=1to24:nextq:volß:nextp 
7982 forp=-728t65%:sound3,p,?72:n 


then?838 
g0t0778 


h=sint(rnd( 1)* 


onhgosub?38,? 
ifpeek(le+ti)<> 


goto6&69® 
i=s1:return 
i=-42d:return 


i=-48:return 
i=-1I:return 
g=-peek(le+ti) :pokee+ti,3:poke 
182:pohee,g:e=se+ti:got 


1024, 


5) 
4B, 
ot 


750,760 
ıen??7® 


extp:forr=1to5S0d8:nextr 


add scncelr:sys1590RA2:printspcl(e 


83) ;chr$( 158) "ende ! 


818 v=-(le1-1)*20+b 
828 printspc( 1223) "score 
330 ifv>wthenwsv 


rı" 


800,24: 


<coHT> 
<ni> 
<nf> 
<me> 
Ki> 


<ma> 
<da> 


u SD 
B4Q v-8:b=-Qd <ob> 
850. printspet 83) "hi=-scarss, : "; 

Ww <hc> 
8680 printspel 123) "noch mal ( j/ 

nITeTIchrel 8) <ic> 
878 poke239,2 <pk> 


B30 getkeyaß:ifaß=-"j"orjoyl 1)> 


127thenrestore:goto1id <la> 
898 end “pn> 
3aQB irl>Sthenc=zdt:rreturn <am?> 
918 onlaosubY3B, 948,950,969,97 

2 <mb> 
928 return <cj>? 
330. co=35:return <mk> 
9348 c=3®:return <mp> 
958 c=-25:return <nn> 
968 c=22:return <oe> 
970 es21Treturn <on> 
380 m=11-1L:ifm<s4thenm=-4 <au> 
99320 return <gp> 
10980 volB <po> 
1818 fForn=1to5S:foro=128to28®st 
ep1BßQ8:sound1,o*n,2:vol®@:volß:n 
exto:nextn <pm> 
1828 return <in> 
10838 rem ======-=-=-=-=- == == === == == <ık> 
1848 rem 12277 bytes memory <ag? 
1858 rem QB1924 bytes zeichen <3h> 
1062 rem 42395 bytes program <fj> 
1878 rem 88385 bytes variahbles <oh> 
1832 rem BUBQBR bytes arrays <be> 
12890 rem BUBQD bytes strings chg> 
1188 rem 088473 bytes fre(B) <mk> 
1110 rem =======-======2=====2=2== cok> 


®® Jährlich werden 
in der Bundesrepublik 
ca. 40000 behinderte 
oder von Behinderung 
bedrohte Kinder 
geboren.9® 


Rita Süssmuth, 
Bundesministerin für Jugend, Familie, Frauen und Gesundheit 
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das Konto der 


Nur für den Fall, 
daß Sie jemand 
fragt, warum Sie 


kind spenden. 
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für die Deutsche Hilfe, bei allen 
Behindertenhilfe- Postämtern, 
Aktion Sorgen- Banken und 


Sparkassen 


SERVICE 


JA- 


woöO SIND 
SIE BDBENN-DIE 
BITS & BYTES? 


Sind Sie auch schon einmal gefragt worden, wo sitzen 

nun eigentlich im Computer die Bits und die Bytes, 

wie kann man diese eigentlich erwischen, und was ist 
das überhaupt? 


Wir, für die diese Be- 
sriffe ganz selbstverständ- 
lich geworden sind, mei- 
nen, Bits und Bytes wä- 
ren doch das einfachste 
der Welt und ganz leicht 
zu erklären. Doch wenn 
wir genauer darüber nach- 
denken, merken wir, daß 
wir zwar eine Vorstellung 
davon haben, dafß aber 
diese oft nicht ganz rich- 
tig ist. Wir waren viel- 
leicht versucht zu sagen, 
die Bits sitzen im RAM 
oder im ROM, sie können 
entweder den Wert 0 
oder 1 haben, und haben 
weder sehr viel zum Ver- 
ständnis beigetragen noch 
selbst kapiert, was ein Bit 
ist. In einem Computer 
gibt es Bausteine, gibt es 
Leitungen, gibt es elektri- 
sche Impulse, elektrische 
Ladungen. Magnetische 
Felder auf Kassette oder 
Diskette werden in Im- 
pulse und Ladungen um- 
gewandelt. Bits jedoch 
sind nicht zu entdecken. 
Woran liegt das? 


EIN BIT, WAS IST DAS? 


Ein Bit ist nichts Sicht- 
bares, nichts Meßbares. 
Ein Bit ist die Maßeinheit 
selbst für Information. 
Machen wir dazu einfach 
einmal ein Experiment. 
Ich frage Sie hierzu, was 
ein Bit ist. Sie brauchen 
dazu nur den Kopf zu 
schütteln oder zu nicken. 
Nun die Fragen: 
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formationseinheiten ha- 
ben Sie durch Kopfbe- 
wegung übermittelt, es sei 
denn, sie hätten geschum- 
melt und gar nicht mitge- 
macht, sondern einfach 
stillschweigend weiterge- 
lesen. Doch Schummeln 
gilt nicht. Deshalb werde 
ich dieses nun für Sie un- 
möglich machen. Kopf- 
nicken soll nun “ja” 
heißen und Kopf nicht 
nicken “nein”. Wo ist 
nun das Bit? 


Die “Innereien” eines Computers. Wo sind die Bits? 


Ist ein Bit ein Computer- 
baustein? 

Ist ein Bit ein magneti- 
sches Feld? 

Ist ein Bit ein elektrischer 
Impuls? 

Ist ein Bit eine elektri- 
sche Ladung? 

Ist ein Bit die kleinste 
Informationseinheit? 


Nun, wenn Sie diese 
Fragen mit Nicken oder 
Kopfschütteln beantwor- 
tet haben, sind Sie dem 
Wesen eines Bits schon 
näher gekommen. Mit 
Nicken haben Sie die Be- 
jahung der Frage, mit 
Schütteln die Verneinung 
derselben angezeigt. Vier 
Fragen waren es, vier In- 


Genausowenig, wie ein 
elektrischer Impuls oder 
eine elektrische Ladung 
ein Bit ist, genausowenig 
ist es ihr Kopf. Die Infor- 
mation wurde lediglich 
durch Nicken bzw. Nicht- 
nicken des Kopfes reali- 
siert. Genauso aber kann 
man Information durch 
positive oder negative La- 
dungen durch verschie- 
den ausgerichtete Mag- 
netfelder, durch das Vor- 
handensein oder Nicht- 


vorhandensein elektri- 
scher Impulse oder durch 
unterschiedlich lange 


Dauer von Signalen, wie 
dieses zum Beispiel beim 
Morsen geschieht, reali- 
sieren. Die kleinste Infor- 
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mationseinheit, welche 
nur den Zustand “ja” 
oder “nein” annehmen 
kann, heißt Bit. Mit dem 
Beantworten der vier Fra- 
gen haben Sie also 4 Bits 
Information übermittelt. 
Eine bestimmte Kom- 
bination der Antworten 
war richtig, die anderen 
Kombinationen falsch. 
Wieviel mögliche Kombi- 
nationen von Antworten 
gab es überhaupt? 
Probieren wir es doch 


einmal aus. Aus Gründen, 
die ich später noch er- 
läutern werde, numme- 
riere ich die Antworten 
nun von O ab ausgehend 
durch. 


£ 0 0 
er 1 1 
rn; 2 2 
PER. 3 3 
.r 4 “ 
ak is 3 5 
um, 6 6 
887 7 
E, 8 8 
#..8 9 9 
n. 10 A 
“ee 1 B 
ER 12 (& 
a: * 193 D 
or 14 E 
sa 15 F 
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Von 0 bis 15, das sind 
16 Möglichkeiten. Um 
nicht nur den Zustand 
von “ja” und “nein” dar- 
stellen zu können, son- 
dern mehrere, faßt man 
einfach mehrere Bits zu- 
sammen. 4 Bits sind ein 
Nibble, 8 Bits ein Byte. 
Mit einem Nibble lassen 
sich die Ziffern von O bis 
9 darstellen, was für 
Taschenrechner vollkom- 
men ausreichend ist. Des- 
halb sind die meisten Ta- 
scher rechner 4-Bit-Rech- 
ner. 


ACHT BITS SIND EIN 
BYTE 


Durch 2 Nibbles lassen 
sich bereits Dezimalzah- 
len bis 99 darstellen. 
Wenn wir nicht auf die 
Bitkombination > 9 ver- 
zichten, welche wir ein- 
fach durch A - F bezeich- 
net haben, so sind sogar 
16*16=256 Möglichkei- 
ten bzw. Zahlen von 
0-255 durch ein Byte aus- 
drückbar. 

Computer arbeiten nicht 
nur mit Zahlen, sondern 
auch mit einer ganzen 
Reihe sonstiger Buchsta- 
ben und Sonderzeichen. 
Ein Byte genügt völlig, 
um diese Zeichen alle 
auszudrücken. Man 
braucht nur einen Code 
zu vereinbaren, welches 
Zeichen welcher Bitkom- 
bination entsprechen soll. 


Eine dieser Vereinbarun- 
gen heißt ASCII-Code, es 
werden aber bisweilen 
auch andere Vereinbarun- 
gen benutzt, wie z.B. der 
EBCDIC-Code. Als Text 
vorliegende Information 
können so im Computer 
gespeichert werden. 


ZWEI BYTES SIND EIN 
WORT, 1024 BYTES 
EIN KILOBYTE. 


Im Hauptspeicher sind 
viele Speicherplätze, in 
welchen jeweils ein Byte 
gespeichert sein kann. 
Um Information aus so 
einem Speicherplatz zu 
holen, bzw. hineinzu- 
schreiben, muß durch ei- 
ne Informationsübertra- 
gung der entsprechende 
Speicherplatz angewählt 
werden. Mit einem Byte 
lassen sich nur 256 ver- 
schiedene Speicherplätze 
adressieren. Mit 2 Bytes 
dagegen 256*256=65536 
Speicherplätze. Wenn 
man weiß, daß 1024 Byte 
ein Kilobyte sind, so las- 
sen sich mit 2 Byte 64 
Kilobyte adressieren. 2 
Byte heißen übrigens 
“Wort”. Viele Rechner 
arbeiten mit wortweiser 
Adressierung und können 
daher bis zu 64 Kilobyte 
ansprechen, wie dieses 
auch bei unseren Com- 
modore-Rechnern der 
Fall ist. 


Sommeogors 
Sachbuch 


ZWEIMAL 
COMMODORE- | ROMLISTING 
WELT 


JEDEN 
MONAT NEU 


Was vor allen Dingen 
Maschinenprogrammierer 
brauchen, die tiefer in die 
Geheimnisse ihres Rech- 
ners eindringen wollen, 
ist ein ROM-Listing. Das, 
welches bisher im Umlauf 
ist, gibt es, nachdem es 
einstmals zu einem Preis 
von 10 DM anstatt 59 DM 
über den Ladentisch ver- 
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ramscht wurde, leider 
nicht mehr im Handel. 
Mit etwas Glück können 
Sie es noch über Gelegen- 
heitsanzeigen bekommen. 
Sie brauchen aber nun 
nicht mehr lange herum- 
suchen, denn nun ist ein 
neues ROM-Listing von 
Markt & Technik erschie- 
nen, welches wir einmal 


SERVICE 


her unter die 
»<hmen wollen. 
Wer den Befehlssatz 
-s Microprozessors 7501 
>ZW. 6502 kennt, 
sraucht, um damit et- 
vas Sinnvolles beginnen 
zu können, auch Kennt- 
nisse über das Betriebs- 
system seines Rechners. 
In vielen Fällen genügt 
oereits die Beschreibung 
der Kernalroutinen. Wer 
aber gewisse Funktionen 
seines Rechners manipu- 
lieren will, wer, anstatt 
eine große Zahl eigener 
Routinen zu schreiben, 
auf die bereits im ROM 
vorhandenen zurückgrei- 
fen will, wer den Befehls- 
umfang seines Compu- 
ters erweitern will oder 
wer nachlesen will, wie 
dieses oder jenes funk- 
tioniert, braucht ein 
ROM-Listing, in welchem 
steht, wie sein Computer 
von Hause aus program- 
miert ist. Und weil er die- 
ses braucht, so wäre es 
ganz gut, zumindest für 
Markt & Technik, wenn 
nur ein einziges ROM- 
Listing existieren würde, 
nämlich das hauseigene. 


Lupe 


SELTSAMES GEHT 
VOR 


Etwas seltsam mutet 
uns auf der Buchrückseite 
folgender Text über Buch 
und Autor an! 

“Da es aber bis jetzt 
für den C16, C116 und 
Plus/4 keine Literatur 
dieser Art gab, machte er 


sich selbst daran, ein 
ROM-Listing zu erstel- 
len.’ 


Man kann sich nur fra- 
gen, hat der Verlag über- 
sehen, was hier steht, 
oder hat er tatsächlich 
keine Ahnung davon. daß 
bereits ein ROM-Listing 
existierte? Hat er tatsäch- 
lich soviel verlorene Lie- 
besmüh investiert und die 
ganze Sache nochmals 


aus dem Englischen ins 
Deutsche übertragen las- 
sen? Dem widerspricht 
teilweise die ziemlich 
wortgetreue Wiedergabe 
des Kommentars zu den 
Systempageadressen. Die 
Dokumentation des 
eigentlichen ROM- 
Listings scheint eher da- 
für zu sprechen, ist doch 
eine gewisse, wenn auch 


KERNAL, BANK- 
SWITCHING, HEXA- 
DEZIMAL UND 
WICHTIGE ADRESSEN 


Die alte Version wurde 
in ihren Abweichungen 
im neuen ROM-Listing 
miterfaßt. Zudem ist eine 
sründliche Verbesserung 


COMMODORE 


co 


geringfügige textliche 
Umformulierung nicht 
abzustreiten, es sei denn, 
daß jene absichtlich ge- 
schah. Gewiß ist nur, 
zum Selbsterstellen eines 
ROM-Listings ist nur der 
Programmierer desselben 
in der Lage. Wie dem 
auch sei, es fanden Ergän- 
zungen statt. Auf einige 
Systemadressen wurde 
näher eingegangen. Zu- 
dem wurde eine neue 
ROM-Version neben der 
bereits bekannten älteren 
behandelt — mittlerweile 
sind uns allerdings bereits 
5 Versionen bekannt. 


MODORE plus/4 
?OM - LISTING 


in der Darstellungsweise 
aufgetreten. Endlich wur- 
de das ROM-Listing mit 
Hexzahlen ausgedruckt. 
Wer hat sich schon nicht 
genügend darüber geär- 
gert, daß er erst immer 
die Dezimalzahlen um- 
rechnen mußte, wenn er 
ein Programm mit dem 
Maschinenmonitor ein- 
geben wollte und hierbei 
erst seine Eingabe unter- 
brechen mußte, um im 
Basic den entsprechenden 
Wert umrechnen zu kön- 
nen. 

Sehr angenehm ist, daß 
eine Beschreibung der 
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Kernal-Routinen enthal- 
ten ist. Man muss da- 
durch nicht noch ein wei- 
teres Buch neben sich lie- 
gen haben. Auf drei Sei- 
ten erfährt man etwas 
über Bankswitching und 
Umschaltung der ROM- 
Konfiguration. Besonders 
das letztere Problem ist 
etwas zu kurz abgehan- 
delt worden. Wer mehr 
Information darüber will, 
dem bleibt jedoch das 
Durchwühlen des ROM- 
Listings. Damit er aber 
nicht völlig blind darauf 
lossuchen muß, haben 
wir in dem neuen ROM- 
Listing ein Stichwort- 
Verzeichnis von ROM- 
Routinen und wichtigen 
Betriebssystemenadres- 
sen. 


BEURTEILUNG 


Bis auf den Lapsus mit 
der ROM-Listingerstel- 
lung gibt es nur Positives 
über das Buch auszusa- 
gen. Mit Beschreibung 
von Kernal, Bankswit- 
ching und ROM-Konfi- 
gurationsumschaltung ist 
es, zudem es ein Ver- 
zeichnis wichtiger Adres- 
sen mitenthält, eine wah- 
re Fundgrube und unbe- 
dingtes Muß für den fort- 
geschrittenen Maschinen- 
spracheprogrammierer. 
Mit hexadezimaler Dar- 
stellung von Zahlen und 
nicht als Paperback, son- 
dern ordentlich gebun- 
den, ist es die Mehrko- 
sten gegenüber einem bil- 
lig erworbenen alten 
ROM-Listing wert. Für 
ganze 49 DM ist es im 
Handel erhältlich. Wer 
ein altes ROM-Listing für 
59 DM angeboten be- 
kommt, sollte dieses lie- 
ber nicht annehmen. 
Wenn es allerdings unter 
10 DM zu haben ist, so 
hat man wohl eine glück- 
liche Hand gchabt. 

A. Mittelmeyer 


ee 


Im letzten Heft hatten wir Ihnen versprochen aufzu- 
zeigen, wie man bei den Computern C16/116 und 
Plus4 mehrere Programme zu einem Gesamtpro- 
gramm “zusammenladen” kann. Versprochen ist ver- 
sprochen, Diese Thematik ist der zweite Teil dieses 
Artikels. Im ersten wollen wir nun wieder einige 
grundsätzliche Dinge behandeln, aber auch diese sind 
für Sie bestimmt interessant. 


Wenn Sie in Ihren 
Computer Programmzei- 
len eingeben oder im Di- 
rektmodus arbeiten, dann 
werden diese zwischen- 
gespeichert. Ihr Compu- 
ter besitzt sowohl einen 
Eingabepuffer als auch 
einen Tastaturpuffer. Der 
Eingabepuffer liegt im 
Bereich von 8200 (dezi- 
mal 512) bis 8258 (600) 
und der Tastaturpuffer 
von 8527 (1319) bis 
3530 (1328). Mit dem 
TEDMON können Sie 
sich von der Existenz des 
Eingabepuffers überzeu- 
gen. Dabei ist der Tasta- 
turpuffer weitaus interes- 
santer für uns, wie Sie 
gleich feststellen werden. 
Dieser Puffer in Ver- 
bindung mit einer weite- 
ren Speicherstelle ermög- 
licht es, dem Computer 
vorzugaukeln, wir hätten 
verschiedene Tasten ge- 


drückt. Was das soll? 
Nun, dadurch kann der 
Computer trickreich 


überlistet werden. Stellen 
Sie sich doch einmal vor, 
daß ein Programm Ta- 
stendrücke simuliert und 
dann mit dem Programm- 
lauf abbricht. Stellen Sie 
sich weiterhin vor, als 
“Tastendrücker” wäre 
die Zeichenfolge RUN 
(RETURN) in den Ta- 
staturpuffer geschrieben 
worden. Wie würde sich 
der Computer verhalten? 
Falsch, er würde nicht 
wieder starten. Sie haben 
es bestimmt so erwartet, 


denn wenn wir so etwas 
ansprechen, dann steckt 
doch etwas dahinter, Es 
ist auch so, der Computer 
kann wirklich soweit ge- 
bracht werden, das, was 
in den Tastaturpuffer ge- 
schrieben wurde, auszu- 
führen. Es muß ihm nur 
mitgeteilt werden, wie- 
viele Tasten gedrückt 
wurden und diese Infor- 
mation muß in die Spei- 
cherstelle für die Anzahl 
der gedrückten Tasten 


gePOKEt werden, dann 
klappt’s. Die hierfür zu- 
ständige Speicherstelle ist 
an der Adresse $EF (239) 
zu finden. 

“Grau ist alle Theo- 
rie”, deswegen gleich zur 
Praxis. Bild 1 zeigt ein 
kleines Programm, wel- 
ches in ganz einfacher 
Weise aufzeigt, wie es 
geht. Durch Zeile 140 
wird der Bildschirm ge- 
löscht. Durch 150 bis 


160 wird nach dieser 


- WE. 


SERE | 


Sildschirmbereinigung 

‘as Wort MONITOR aus- 
segeben. Dieses Wort ist, 
vie Sie wissen, der Be- 
‘ehl zum Aufruf des 
TEDMON. Zeile 170 
setzt den Cursor auf die 
Home-Position, also in 


Jie linke obere Ecke des 
Bildschirms, ohne ihn zu 
löschen. Und nun folgen 
die beiden Programmzei- 
lien, die den Computer 
überlisten. POKE 239,1 
bewirkt, daß der Compu- 


ter nach seinem Pro- 
grammlauf glaubt, eine 
Taste wurde gedrückt 
und POKE 1319,13 
schreibt den Code für die 
Return-Taste in den Ta- 
staturpuffer. Nach dem 
Programmlauf meldet 
sich der Computer mit 
READY und sein Cursor 
steht auf dem Wort MO- 
NITOR. Durch seinen 
Full-Screen-Editor wird 
dieses Wort nun “über- 
nommen” und der Befehl 
ausgeführt. Das war nun 
die einfachste Version: 
Ein Tastendruck wurde 
simuliert. Bild 2 zeigt 
dann eine bereits erwei- 
terte Variante hiervon. In 
den Tastaturpuffer wird 
zweimal der Wert der Re- 
turn-Taste geschrieben 
und die Anzahl der ge- 
drückten Tasten ist eben- 
falls zwei (POKE 239,2). 

Mittels der bisher auf- 
gezeigten Methode kön- 
nen sehr lange Befehls- 
folgen vom Bildschirm 
übernommen werden. Es 
gibt aber auch die Mög- 
lichkeit, ohne den Bild- 
schirmspeicher zu arbei- 
ten, indem die Zeichen- 
code der “Eingabe” in 
den Tastaturpuffer ge- 
schrieben werden. Bild 3 
zeigt, wie es geht. In den 
Datastatements der Zeile 
330 stehen die Werte für 
dass Wort MONITOR 
und der Code der Return- 
Taste. Aufgrund unserer 
bisherigen Ausführungen 
dürfte eigentlich kein 
Verständnisproblem bei 
Ihnen auftreten. Chr$ 
(77)=M, Chr$ (79)=0 
usw. Auch diese Methode 
eignet sich dazu, direkt 
eine weitere Eingabe zu 
simulieren, also so zu 
tun, als wenn Sie nicht 
nur MONITOR. eingege- 
ben hätten, sondern auch 
noch “M” (RETURN). 
Bild 4 zeigt nochmals das 
komplette Programm da- 
für. 

Bisher haben wir nur 
gezeigt, wie diese Technik 
funktioniert. Nun wollen 


wir an einem kleinen Bei- 
spiel aufzeigen, wie dies 
sinnvoll eingesetzt wer- 
den kann. Auch hierzu 
wieder ein kleines Pro- 
gramm (Bild 5). Dieses 


DIESE METHODE HAT 
SINN 


Programm soll demon- 
strieren, wie  beispiels- 
weise neue Basiczeilen er- 
zeugt werden können. 
Diese Methode wäre bei- 
spielsweise für eine 
simple kleine Adress- 
datei einsetzbar. Die glei- 
che Methode kann auch 
dafür eingesetzt werden, 
einen Datagenerator zu 
programmieren, um Ma- 
schinenspracheprogram- 

me als Hexlader abdruk- 
ken zu können. In einer 
unserer regulären Com- 
modore-Welt ist ein der- 
artiges Programm für den 
C16 bis Plus4 enthalten! 


WIR FÜGEN PRO- 
GRAMME ZUSAMMEN 


Doch nun zum ver- 
sprochenen Thema der 
Programmzusammenfü- 
gung. Warum versuchen 
wir immer wieder, Ihnen 
die hexadezimale Denk- 
weise nahezulegen? Viel- 
leicht haben Sie es schon 
bemerkt, mittels des ein- 
gebauten Monitors kön- 
nen nicht nur Programm- 
analysen durchgeführt 
werden, sondern auch 
sehr sinnvolle Manipula- 
tionen sind schnell 
durchführbar. Vorausge- 
setzt, man kann mit 
Hexzahlen arbeiten. 

Nehmen wir also ein- 
mal folgenden Fall an: 
Sie möchten zwei Pro- 
gramme miteinander zu 
einem einzigen verbin- 
den. Handelt es sich bei 
einem von beiden um ein 
sehr kurzes Programm, 
so gibt es (wenn beide 
Programme unterschied- 
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liche Zeilennummern ha- 
ben) eine sehr einfache 
und simple Möglichkeit. 
Lassen Sie sich das kleine 
(nur aus ein paar Zeilen 
bestehende) Programm 
durch LIST auf dem Bild- 
schirm ausgeben. Danach 
laden Sie das zweite Pro- 
gramm ganz normal. 
Wenn nach dem Ladevor- 
gang das erste Programm 
noch auf dem Bildschirm 
steht, dann können Sie 
dieses nun ganz einfach 
dadurch übernehmen, 
daß Sie mit dem Cursor 
auf die erste Basiczeile 
des ersten Programmes 
fahren und dann alle die- 
se Zeilen durch Betäti- 
gung der RETURN-Taste 
übernehmen. Sie können 
dabei auch — falls es er- 
forderlich ist — die Zei- 
lennummern ändern. 


Der Bildschirmspeicher 
fungiert also als Zwi- 
schenspeicher. Falls aber 
keines der beiden Pro- 
gramme so kurz ist, daß 
es (nach dem Ladevor- 
gang des zweiten Pro- 
grammes) noch komplett 
auf dem Bildschirm steht, 
dann muß man eben ei- 
nes der Programme in 
kleine Teile zerlegen und 
den Vorgang mehrfach 
wiederholen. Eine ziem- 


lich umständliche Vor- 
gehensweise, finden Sie 
nicht auch? 

Leider besitzen die 


Commodore - Computer 
der Serie C116/16 und 
Plus4 keinen MERGE- 
Befehl, mit dem es mög- 
lich wäre, zwei Program- 
me miteinander zu ver- 
ketten. Aber das ist kein 
allzugroßes Manko, denn 
nun erfahren Sie, wie 
man dieses Problem in- 
nerhalb sehr kurzer Zeit 
lösen kann. TEDMON 
hilft dabei! 

Immer wieder haben 
wir Ihnen Speicherstellen 
mitgeteilt, in denen sich 
Ihr Computer etwas 
merkt. Für die Manipula- 
tionen, die wir nun vor- 


haben, sind genau vier 
davon interessant. Die- 
se befinden sich ab $2B 
(dezimal 43) bis $2E 
(45) hintereinander im 
Speicher. 

In den ersten beiden 
Speicherstellen steht die 
Adresse des Basic-Pro- 
grammbeginnes (Zeiger 
auf den Basic-Anfang), 
in den beiden folgenden 
der Zeiger für den Be- 
ginn der Variablen. Erin- 
nern Sie sich noch an 
das Programm STRING- 
FINDER in der letzten 
Ausgabe? Bei diesem Pro- 
gramm erfuhren wir die 
Anfangs- und Endadres- 
sen für den Programm- 
lauf. 

Nun aber “gebrau- 
chen” wir sie wieder an- 
ders, wir wollen eigent- 
lich gar nicht wissen, wo 
Basic-Beginn und Start 
der Variablen ist, son- 
dern einen dieser Zeiger 
verstellen. 

Wenn Sie Ihren Com- 

puter einschalten und 
dann einmal nachsehen 
(ohne ein Programm gela- 
den zuhaben), was in den 
Speicherstellen ab $2B 
steht, dann finden Sie 
folgende Zeichenfolge: 
01 1003 10. 
Falls Sie noch nicht wis- 
sen sollten (es soll ja Be- 
sitzer dieser Computer 
geben, die bisher unsere 
Zeitschriften noch nicht 
gelesen haben!), wie Sie 
sich diese Speicherstel- 
len ansehen können, hier 
der ganz kurze Hinweis: 
Ihr Computer hat einen 
eingebauten Maschinen- 
sprache-Monitor, der 
durch den Befehl MONI- 
TOR aufgerufen werden 
kann. Nach diesem Auf- 
ruf geben Sie “M2B” ein 
und schon sehen Sie ab 
dieser Adresse ‘die Spei- 
cherinhalte. 

Die ersten beiden 
Bytes geben den Basic- 
Beginn an. “Basic” und 
damit geladene Basicpro- 
gramme beginnt bzw. be- 
ginnen also bei der RAM- 


Speicher-Adresse $1001. 
Die erste Zahl ist das so- 
genannte Low-Byte, die 
zweite das High-Byte. 
Um den hexadezimalen 
Wert, auf den der Zeiger 
“deutet”, zu erhalten, 
muß die Zeichenfolge 
einfach umgedreht wer- 
den. Für den Zeiger auf 
den Beginn der Variab- 
len ergibt sich deshalb 
die Adresse $1003. 

Warum dieser Abstand 
vorhanden ist, hängt mit 
der Programm-Ende-Fr- 
kennung des Basic-Inter- 
preters zusammen. Prin- 
zipiell ist die Differenz 
zwischen dem eigentli- 
chen Programmende und 
dem Start der Variablen 
immer 2 (Das Ende eines 
Basic-Programmes wird 
durch zwei leere Bytes 
gekennzeichnet, wir hat- 
ten das schon in der 
letzten Ausgabe mitge- 
teilt!). Da der Variablen- 
beginn immer direkt hin- 
ter dem Programm-Ende 
liegt, können wir durch 
einen kleinen Trick nun 
die Adresse auf den Ba- 
sic-Beginn hinter das Pro- 
gramm legen. 


PEEKEN 
UND POKEN IST VIEL 
ZU UMSTANDLICH 


Dies erfolgt einfacher- 
weise mit dem eingebau- 
ten TEDMONITOR. Um 
diese Manipulation kor- 
rekt durchzuführen, zie- 
hen Sie von der Adresse 
des Zeigers auf die Va- 
riablen zwei ab und 
schreiben diesen Wert in 
die Speicherstellen für 
den Basicbeginn. Fertig! 
Damit Sie das aber kor- 
rekt tun können, müssen 
Sie mit den Hexzahlen 
umgehen können. Selbst- 
verständlich geht es auch 
durch PEEKen und 
POKEn in Dezimal, ist 
aber weit umständlicher. 

Nun können Sie das 
nächste Programm ein- 
laden und dieses wird 
hinter das erste einge- 


188 
118 
128 
138 
131 

140 
145 
158 
164 
178 
i8@ 
198 


REM 
REM 
REM 


AUFRÜUF DES MONITORS UEBER 
BILDSCHIRMSPEICHER UND 
TASTATURBUFFER (VERSION 1) 


REM BILDSCHIFM LOESCHEN 
PRINT CHR$( 147) 


PRINI:PRINT 
FRINT"MONITOR" 
PRINT CHRA$( 19) 
POKE 239,1 
PURE 73719,183 


READY. 


Bild 1 


198 
110 
128 


1380 
148 


REM AUFRUF DER MONITORFUNKTION 

REM ’M 18880’ UEBER DEN BILDSCHIRM- 
REM SPEICHER UND TASTATURPUFFER 
REM (VERSION 2) 


REM BILDSCHIRM LOESCHEN 
PRINT CHR$( 147) 


PRINT:PRINT:PARINT"MONITOR" 
FOR I = 1 TO 5:PAINT:NEXT 
PRINT"M 1800" 

PRINT CHR$( 19) 

POKE 239,2 


POKE 1319, 13:POKE 1328,13 


READY. 


Bild 2 


mm stk] m nn 


188 REM AUFRUF DES MONITORS 

118 REM DURCH MAN.’PULATION DES 

128 REM TASTATURPUFFERS (VERSION 1) 
130 : 

148 REM BILDSCHIRM LOESCHEN 

158 PRINT CHR$( 147) 

168 : 

1728 REM TEXTAUSGABE 

188 PRINT"AUFRUF DES MONITORS DURCH 
198 PRINT"MANIPULATION DES TASTATUR- 
288 PRINT"PUFFERS (VERSION 1) 

210 : 

220 : 

238 REM DAS WORT MONITOR IN DEN 

248 REM TASTATURPUFFER SCHREIBEN 
258 FOR I = 1319 TO 1326 

2608 READ A:POKE I,A 

278 NEXT 

280 : 

2980 REM ANZAHL SIMULIERTER TASTENDRUECKE 
388 POKE 239,8 

318 : 

328 REM MON IT Oo Rh 

338 DATA 77,79,78,73,84,79,82,13 
READY. 

Bild 3 


TE 
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SERIE | 


‚sen. Nachdem das zwei- 
= Programm geladen 
vurde, muß nun wieder 
ser Zeiger für den Basic- 
seginn korrigiert werden 
ınd schon kann das Ge- 
samtprogramm aufge- 
istet werden. Der Basic- 
»eginn ist im Normalfall 
'aimmer $1001 und des- 
halb kann ohne weitere 
mathematische Klimmzü- 
se dieser Wert sofort ein- 
geschrieben werden. 

Es kommt nun aber 
vor, daß die beiden zu- 


REM 
REM 
REM 
REM 
REM 
PRINT CHR$( 147) 


FOR EL = 1319 'TO 
READ A:POKE I,A 
NEXT 

POKE 239,18 


REM MON 


REM M RETURN 
DATA 77,13 


READY. 
Bild 4 


PRINT"EINGABE 


READY. 
Bild 5 


Do — 


127 


PRINT"AUFRUF DER MONITORFUNKTION 
PRINT"DURCH TASTATURPUFFER- 
PRINT"MANIPULATION (V 2) 


sammengefügten Pro- 
grammteile gleiche Zei- 
lennumern haben. Wenn 
Sie sich in einem sol- 
chen Falle das komplette 
Programm-Listing ausge- 
ben lassen, dann sehen 
Sie beispielsweise die Ba- 
siczeilen von 100 bis 
500 des ersten Program- 
mes und dahinter fol- 
gend dann (vielleicht bei 
10 beginnend) die Zeilen 
des zweiten Programmes. 
Das ist aber kein Bein- 
bruch. Der Befehl RE- 


AUFRUF DES MONITORS 

UND START EINES HEXDUMPS 
DURCH MANIPULATION DES 
TASTATURPUFFERS (VERSION 2) 


BILDSCHIRM LOESCHEN 


‚Mr 


REM DAS WORT MONITOR, (RETURN) 
REM UND DEN BUCHSTABEN 
REM TASTATURPUFFER POKEN 
1328 


’M’ IN DEN 


REM ANZAHL DER SIMULIERTEN TASTEN 


T. 0 R RETURN 


DATA 77,79,78,73,84,79,82,13 


REM DEMONSTRATIONSPROGRAMM ZUR 
REM MANIPULATION DES TASTATURPUFFERS 


PRINT CHR$( 147) :A=- 1008 
HO$=CHRA$( 19) : CD$-CHR$( 17) :SCNCLA 
’ENDE’ BEENDET "; 
PRINT"DEN PROGRAMMLAUF": PRINT 
INPUT"EINGABE" ;A$:PRINTCHR$( 147) 

IF A$="ENDE" THEN END 

PRINT HO$CD$CD$SCD$A" DATA "AS 
PRINT"A="A;"+18":PRAINT CD$ 
PRINT"GOTO 148":PRINT HO$:POKE 239,3 
FOR I=1319 TO 1321:POKE I,13:NEXT I 


NUMBER schafft wieder 
Ordnung und korrigiert 
alles. Damit haben wir 
eigentlich erklärt, was al- 
les zu machen ist. Damit 
es aber bei Ihnen keine 
Probleme gibt, spielen 
wir ein praktisches Bei- 
spiel durch. 

Angenommen, folgen- 
de beiden Programme sol- 
len zu einem zusammen- 
gefügt werden: 


PROGRAMM 1 
10 REM DIES IST DER 
ERSTE TEIL 
20 REM DES SPÄTE- 
REN GESAMTPRO- 
GRAMMES. 


PROGRAMM 2 
10 REM UND DIES IST 
DER ZWEITE TEIL. 
15 REM EINZELPRO- 
GRAMME ZU EINEM 
20 REM GESAMTPRO- 


GRAMM ZUSAMMEN- 
ZUHÄNGEN 

30 REM IST KEIN 
PROBLEM! 

40 REM WICHTIG IST; 
GEWUSST WIE! 


Zunächst geben Sie das 
erste Programm in Ihren 
Commodore ein und spei- 
chern es ab. Beispiel für 
Besitzer einer Disketten- 
station: DSAVE“P1” 

Danach geben Sie das 
zweite Programm ein und 
speichern es ebenfalls ab. 
Beispiel DSAVE“P2”. 
Falls keine Diskettensta- 
tion vorhanden ist, dann 
hat der Abspeichervor- 
gang ganz normal mit 
SAVE “Name des Pro- 
grammes” zu erfolgen. 

Damit Sie nun ganz si- 
cher sind, daß die Ihnen 
nun gezeigte Technik kei- 
nen verspäteten April- 
scherz darstellt, schalten 
Sie den Commodore nun 
aus und wieder ein. Pro- 
gramme, die im Speicher 
standen, sind dadurch 
mit Sicherheit gelöscht. 

Nun laden Sie das erste 
Programm. Wenn der La- 
devorgang beendet ist, ru- 
fen Sie den Monitor auf. 


Also: MONITOR einge- 
ben und die Return-Ta- 
ste drücken. 

Danach “M2B” einge- 
ben und’ wieder die Re- 
turn-Taste drücken. In 
der Zeile, in der links die 
Adresse > 002B steht, 
sehen sie nun die Zei- 
chenfolge: 01 10 47 10 
usw. Fahren Sie nun mit 
dem Cursor auf die “O1” 
und geben Sie dort die 
Zahl 45 ein. (Hexadezi- 
mal 47 minus 2 = 45!) 
Nach Betätigung der Re- 
turntaste wird diese Ein- 
gabe übernommen. 

Nun können Sie mit X 
(Return) den Monitor 
verlassen. Wie Sie sich 
durch LIST überzeugen 
können, wird kein Pro- 
gramm mehr ausgegeben. 
Nun laden Sie das zweite 
Programm. Nach dem La- 
devorgang den Monitor 
wieder aufrufen und 
M2B eingeben. Durch 
Eingabe von Ol an der 
Adresse S2B, @ wird der 
Basicbeginn wieder auf 


IHR COMPUTER KANN 


MEHR 


den ursprünglichen Wert 
gestellt. Wenn Sie dann 
den Monitor verlassen, 
können Sie das Gesamt- 
programm auflisten. Wie 
Sie sehen, wurden beide 
Programme zu einem ein- 
zigen zusammengehängt, 
aber sehen Sie sich bitte 
auch einmal die Zeilen- 
nummern an! Deshalb 
bitte noch neu durchnu- 
merieren und alles 
stimmt wieder. 

Nun steht Programm- 
zusammenfügungen 
nichts mehr im Weg. Sie 
sehen, wenn man seinen 
Computer etwas kennt, 
sind Dinge machbar, die 
er sonst nicht beherrscht. 
Im nächsten Heft geht es 
wieder weiter mit Infor- 
mationen, damit Sie Ih- 
ren Computer noch bes- 
ser kennenlernen und 
damit auch trickreicher 
programmieren. (LM) 


PLUS PAKET 


Spielesammlung besteh. aus: GA| 


GRANDMASTER 


Das legendäre Schachprogramm mit viel 
Zugzurücknahme, 10 
Spulen Zugvorschlag, Schachuhren) und 
u 


Spielkomfort (u.a. 


erragender Spielstärke. 


Bildern 


GALAXY 


wellen warten auf Sie 


LAXY, GHOST TOWN, GRANDMASTER, TOM 


Tom soll Labyrinthe nach Schät 
zen durchsuchen, aber überall Geisterstadt in diesem Grafik-Ad- 
venture. Dabei wandern Sie durch 
19 Orte ın schöner Hires-Grafik 


lauern gefährliche Wesen. Ac 
tionsprel mit uberragender Farb- 
grafık sowie 17B verschiedenen 


Ein Weltraumspiel mit schönes 
abwechslungsreicher Grafik Ins 
gesamt 19 verschiedene Angriffs 


FE 


GHOST TOWN 


Finden Sie die Schatztruhe einer 


WINTER OLYMPIADE 


Das Spiel der Spiele für alle Besitzer eines C-16, C-16 oder PLUS/A. 

Ein tolles Sportfest für 1 bis 4 Mitspieler mit 6 Disziplinen, großer Eröffnungsfeier, 
Wahl der Landesfarben & Hymnen, usw. 
Mit diesem Programm hat Udo Gertz neue Maßstäbe gesetzt und dafür von der 
englischen Computerfachzeitschrift COMMODORE COMPUTING INTERNATIO- 
NAL mit 3 Oskars ausgezeichnet! 


Und HAPPY COMPUTER schrieb zu diesem Programm: "Was ein deutscher Programmierer das aus dem C- 
piade' ist sowohl grafisch als auch spielerisch ein Wunder. ...'Winter Olympiade’ ist nach unserer Meinung das beste C-16-Spiel, das derzeit auf dem Markt ist.” 


BRIDGEHEAD 


” 


Der bekannte Legionär . 


ist wieder da: diesmal 
soll er auf feindlichem 
Gebiet einen Brücken- 
kopf errichten. 
Horizontal in beide Rich- 
tungen scrollende Spit- 
zen-Grafik mit vielen ver- 
schiedenen Bildern. 


nn 


PINPOINT 


Steuern Sie Ihren Kreisel 
durch eine bizarre 3D-Land- 
schaft mit Bergen und Tälern 
dem Ziel entgegen. Eine fas- 
zinierende Spielidee mit tol- 
ler Grafik, die schon auf an- 
deren Computern für Aufse- 
hen sorgte. 

Nur auf Kassette lieferbar! 


KARATE KING 


(Nur mit 64 K-RAM) 


‚Das endgültige Karatespiel 


mit ausgezeichneter Anima- 
tion durch neuentwickelte 
Multicolor-Softsprites, die 
flimmerfreie und schnelle 
Action garantieren. Viele 
bildschöne Hintergründe 
sorgen für fernöstliche Stim- 
mung. Für 1 oder 2 Spieler. 


amenest arıR j7 


RÄTSEL DER 
7. KOLONIE 


(Nur mit 64 K-Ram) 

In diesem deutschsprachigen 
Text-/Grafik-Adventure (Aben- 
teuerspiel) müssen Sie die an 
einem geheimen Ort versteckte 
Diskette finden, auf der die 
letzten Botschaften einer ver- 
ahollenen Kolonie enthalten 
sind. 


PAPERBOY 


Lernen Sie das Leben eines Zei- 
tungsjungen kennen, der jeden 
Morgen mit dem Fahrrad aus- 
liefern muß. Der berühmte Ata- 
ri-Spielautomat wurde von uns 
speziell für Ihren Computer um- 
geschrieben. Die „HAPPY COM- 
PUTER" schrieb dazu: „Erstaun- 
liches tut sich beim C 16. Wieder 
einmal zeigt ein deutscher Pro- 
grammierer, daß man auch mit 
16 K Byte tolle Spiele program- 
mieren kann.” 


LEGENDE 
IM EIS 


(Nur mit 64 K-RAM) 

In diesem deutschsprachigen 
Text-/Grafik-Adventure (Aben- 
teuerspiel) müssen Sie einen 
verschollenen roten Rubin wie- 
derfinden. 


PFAD IM 
DSCHUNGEL 


(Nur mit 64 K-RAM) 

In diesem deutschsprachigen 
Text-/Grafik-Adventure (Aben- 
teuerspiel) spielen Sie einen 
Cowboy, der von einem tod- 
kranken Mann beauftragt 
wird, ein geheimnisvolles To- 
tem mit heilenden Kräften zu 
finden. 


ME EEE > BEE 


Alle Programme selbstverständlich mit ausführlicher deutscher Anleitun 
Diskette (zum gleichen Preis!). Alle Preise veistehen sich zzgl. ca. 


A885 09 


| 25, Go, 


PLUS PAKET II 


Spielesammlung bestehend aus: BONGO, LEGIONNAIRE, SPACE PILOT, PILOTX 


Ein rasantes Einzelkämpfer-Spiel mit hervor- 
ragender Animation und einer starken, scrol- 
lenden Hintergrundgrafik. Werden Sie es 
schaffen, das Hauptquartier zu erreichen? 
Für 1 Spieler; Joystick erforderlich. 


SOMMER O 


SPACE PILOT 


| zwei Spieler; 
Tastatur oder Joystick 


PILOT X 


Der Nr. 1 Hit. Spezial-Version. Ir- 
res Weltraumspiel mit packenden 
Kampfszenen und Super-Farbgra- 
fik mit Softsprites. Für einen oder 
Steuerung 


Steuern Sie Ihr Raumschiff in die 
Tiefen eines Riesenlabyrintes. Ein 
neues Actionspiel für alle Spieler 
mit stärken Nerven. Einzigartige 


WS. 


Begleiten Sie Bongo, die Super 
maus auf der Suche nach den Dia 
manten der Prinzessin. Mit dem 
eingebautem Construction Ser 


mit können Sie sogar eigene Bilder 


entwerfen. spielen u. abspeichern 


Steuerung und starker Sound. 


LYM 


PIADE 


Die Fortsetzung der sensationellen Winter Olympiade mit 6 mindestens genauso 
guten Disziplinen (u.a. Radfahren, Stabhochsprung, Turmsprung und Wildwasser- 
kanu) und dem gleichen festlichen Rahmen (Eröffnungszeremonie, 1 bis 4 Mit- 
spieler, Wahl der Landesfarben & Hymnen, usw.) - das MUSS für alle Fans von 
wirklich guten Sportspielen! 


A 


Fliegen Sie mit Ihrem Raum- 
schiff über einen unbekannten 
Planeten und kämpfen Sie sich 
gegen eine feindliche Über- 
macht ans Ziel. Erstklassige, 
weich scrollende Hintergrund- 
grafik und schnelle Animation 
und Action. Als besonderen 
Gag bietet ihnen dieses Pro- 
gramm eine Super-Sprachaus- 
gabe während des Spiels auf je- 
dem Computer! 

Nur auf Kassette lieferbar! 


SPORT-SHOW 


Eine Spielesammlung für 
den Sport-Fan, beste- 
hend aus: 

« FUSSBALL 

+ TENNIS 

«+ THAI-BOXEN 

« KANUFAHREN 

Das absolute MUSS für 
jeden Sport-Fan. 


16 herausgeholt hat, ist eine kleine Sensation. 'Winter Olym- 


umwi 

Qu mit 54 K-RAM) 
Das erste Compute 
ganze Familie ist 

sind die einsamen Stunden am 
Monitor - jetzt können alle mit- 
spielen, jung und alt. Bis zu 8 


iel für die 
a! Vorbei 


Mitspieler - rund 4000 Fragen 


', aus 6 Wissensgebieten - orig 


deutsche Fragen (keine Über- 
setzung). Lernen Sie spielerisch 
dazu - schöne Grafik, Vorge- 
stellt + empfohlen im Fernse- 
hen, hochgelobt in vielen Pres- 
seberichten. 


SPITZEN-SOFTWARE 


DH MN ÄR 
KINGSOFT 


HH MN 


MADE IN GERMANY 


F. Schäfer - Schnackebusch 4 - 5106 ROETGEN 
Telefon 0 24 08-51 19 - Telefax 0 24 08-52 13 


Fordern Sie noch heute unseren großen Gesamt-Kataloc an unter Tel. 02408/5119 


g. Lieferung wahlweise auf Kassette oder 
5.- Porto per N.N.! 


(Nicht aufgeben 


